Naval  Research  Laboratory 

Stennis  Space  Center,  MS  39529-5004 


NRL/MR/7320--02-8285 


Software  Design  Description 

for  the  Simulating  WAves  Nearshore 

Model  (SWAN) 


Richard  Allard 
Erick  Rogers 

Ocean  Dynamics  and  Prediction  Branch 
Oceanography  Division 


Suzanne  N.  Carroll 
Kate  V.  Rushing 

Planning  Systems  Incorporated 
Stennis  Space  Center ,  MS 


November  15,  2002 


Approved  for  public  release;  distribution  is  unlimited. 


20030110  112 


REPORT  DOCUMENTATION  PAGE 


Form  Approved 
OMB  No.  0704-0188 


Public  reporting  burden  for  this  collection  of  information  is  estimated  to  average  1  hour  per  response,  including  the  time  for  reviewing  instructions,  searching  existing  data  sources,  gathering  and 
maintaining  the  data  needed,  and  completing  and  reviewing  this  collection  of  information.  Send  comments  regarding  this  burden  estimate  or  any  other  aspect  of  this  collection  of  information,  including 
suggestions  for  reducing  this  burden  to  Department  of  Defense,  Washington  Headquarters  Services,  Directorate  for  Information  Operations  and  Reports  (0704-0188),  1215  Jefferson  Davis  Highway, 
Suite  1204,  Ariington,  VA  22202-4302.  Respondents  should  be  aware  that  notwithstanding  any  other  provision  of  law,  no  person  shall  be  subject  to  any  penalty  for  failing  to  comply  with  a  collection  of 
information  if  it  does  not  display  a  currently  valid  OMB  control  number.  PLEASE  DO  NOT  RETURN  YOUR  FORM  TO  THE  ABOVE  ADDRESS. _ 

1.  REPORT  DATE  (DD-MM-YYYY)  2.  REPORT  TYPE  3.  DATES  COVERED  (From  - Jo) 

November  15, 2002  Memorandum  _ 


4.  TITLE  AND  SUBTITLE  5a.  CONTRACT  NUMBER 


Software  Design  Description  for  the  Simulating  WAves  Nearshore  Model  (SWAN) 


6.  AUTHOR(S) 


5b.  GRANT  NUMBER 


5c.  PROGRAM  ELEMENT  NUMBER 

0602435N 


5d.  PROJECT  NUMBER 


Richard  Allard,  Erick  Rogers,  Suzanne  N.  Carroll,*  and  Kate  V.  Rushing* 


5e.  TASK  NUMBER 


5f.  WORK  UNIT  NUMBER 


7.  PERFORMING  ORGANIZATION  NAME(S)  AND  ADDRESS(ES) 

Naval  Research  Laboratory 

Oceanography  Division 

Stennis  Space  Center,  MS  39529-5004 


8.  PERFORMING  ORGANIZATION  REPORT 
NUMBER 


NRL/MR/7320— 02-8285 


9.  SPONSORING  /  MONITORING  AGENCY  NAME(S)  AND  ADDRESS(ES) 


10.  SPONSOR  /  MONITOR’S  ACRONYM(S) 


Office  of  Naval  Research 
800  North  Quincy  Street 
Arlington,  VA  22217 


11.  SPONSOR  /  MONITOR’S  REPORT 
NUMBER(S) 


12.  DISTRIBUTION  /  AVAILABILITY  STATEMENT 

Approved  for  public  release;  distribution  is  unlimited. 


13.  SUPPLEMENTARY  NOTES 

*PIanning  Systems  Incorporated,  Stennis  Space  Center,  MS  39529-5004 

14.  ABSTRACT  ’ _ ’ 

Simulating  WAves  Nearshore  (SWAN)  is  a  third-generation  numerical  wave  model  developed  for  wave  computations  in  coastal  regions  and 
inland  waters.  The  model  is  based  on  an  Eulerian  formulation  of  the  discrete  spectral  balance  of  action  density  that  accounts  for  refractive 
propagation  over  arbitraiy  bathymetry  and  current  fields.  SWAN  is  driven  by  boundary  conditions  and  local  winds.  The  processes  of  wind 
generation,  whitecapping,  quadruplet  wave-wave  interactions,  bottom  dissipation,  triad  wave-wave  interactions,  and  depth-induced  wave  break¬ 
ing  are  represented  explicitly,  though  SWAN  does  not  account  for  diffraction.  SWAN’s  numerical  propagation  scheme  is  implicit;  thus  the  model 
is  most  efficient  (relative  to  other  models)  when  applied  to  cases  with  relatively  high  geographic  resolution  (i.e.,  cases  of  smaller  scale).  SWAN 
has  been  validated  by  comparisons  with  analytical  solutions,  and  laboratory  and  field  observations. 

SWAN  is  the  state-of-the  art  phase-averaged  coastal  wave  model  (at  the  time  of  this  writing).  As  a  third-generation  model,  SWAN  models 
propagation  and  dissipation  explicitly.  It  also  allows  for  simple  integration  of  future  developments  in  formulations  for  the  physical  processes 
mentioned  above,  as  SWAN  is  a  strictly  and  logically  modular  program. 


15.  SUBJECT  TERMS 

SWAN,  WAM,  Wavewatch  III,  Subroutines,  Waves 


16.  SECURITY  CLASSIFICATION  OF: 


a.  REPORT 


b.  ABSTRACT  c.  THIS  PAGE 


Unclassified 


Unclassified 


17.  LIMITATION 

18.  NUMBER 

OF  ABSTRACT 

OF  PAGES 

UL 

219 

19a.  NAME  OF  RESPONSIBLE  PERSON 

Richard  Allard _ 

19b.  TELEPHONE  NUMBER  (Include  area 
code) 


Unclassified 


1 


(228)  688-4894 

Standard  Form  298  (Rev.  8-98) 

Prescribed  by  ANSI  Std.  Z39.18 


Software  Design  Description 
for  the 

Simulating  WAves  Nearshore  Model  (SWAN) 

Cycle  III  Version  40.1 1 

Contract  Number 
N000 1 4-96-D-603 1 

March  2002 


Richard  Allard 
Erick  Rogers 


Ocean  Dynamics  and  Prediction  Branch 
Oceanography  Division 
Naval  Research  Laboratory 


Suzanne  N.  Carroll 
Kate  V.  Rushing 
Planning  Systems  Incorporated 


PSI  Technical  Report  SSC-002-02 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


TABLE  OF  CONTENTS 

Table  of  Contents . v 

List  of  Figures .  xi 

List  of  Tables .  xi 

1.0  SCOPE . 1 

1.1  Introduction . 1 

1 .2  Document  Overview . 1 

2.0  Reference  Documents . 2 

2. 1  SWAN  Software  Documentation . 2 

2.2  SWAN  Software  Release . 2 

2.3  General  Technical  Documentation . 2 

3.0  Model  Design  Decision . 10 

3. 1  Additions  to  SWAN . 10 

3.2  Changes  to  SWAN . 10 

3.3  Compatibility  of  SWAN . 10 

3.4  Bugfixes . 10 

3.5  Implementation . 11 

4.0  Model  Architectural  Design . 1 1 

4. 1  Model  Components . 11 

4.2  System  Requirements . 12 

4.3  Concept  of  execution . 12 

4.4  Interface  Design . 15 

4.4.1  Interface  Identification  and  Diagrams . 15 

5.0  SWAN  Detailed  Design . 16 

5. 1  Constraints  and  Limitations . 16 

5.2  Logic  and  Basic  Equations . 17 

5.2. 1  General  Formulation . 1 7 

5.2. 1 . 1  Action  Balance  Equation . 1 8 

5.2. 1 .2  Wind  Input . 1 8 

5.2. 1.3  Dissipation . 19 

5.2.1.4  Nonlinear  Wave-wave  Interactions . 22 

5.2.2  First-,  Second-  and  Third-generation  Mode . 23 

5.2.3  Wave-induced  Set-up . 24 

5.2.4  Detailed  Formulation . 24 

5.2.4.1  Input  by  Wind  (Sta  ) . 24 

5.2.4.2  Linear  Growth  by  Wind . 24 

5.2.43  Exponential  Growth  by  Wind . 25 

5.2.4.4  Dissipation  of  Wave  Energy  (Sds ) . 26 

5.2.4.4. 1  Whitecapping . 26 

5.2.4.4.2  Bottom  Friction . 27 

5.2.4.43  Depth-induced  Wave  Breaking . 29 

5.2.4.5  Nonlinear  Wave-wave  Interactions  (Sn| ) . 30 


v 


PSI  Technical  Report  SSC-002-02  SWAN  SDD 


5. 2.4.5. 1  Quadruplet  Wave-wave  Interactions . 30 

5.2.4.5.2  Triad  Wave- wave  Interactions . 3j 

5.2.4.53  Wave-induced  Set-up .  32 

5.2.5  Numerical  Implementation . . 

5.2.5. 1  Propagation .  34 

5.2.5. 1 . 1  Generation,  Wave-wave  Interactions  and  Dissipation . 39 

5. 2.5. 1.2  Wave-induced  Set-up .  4] 

5.2.5.13  Curvilinear  Grid .  42 

5.2.6  SWAN  Physics . ZZZZZZZZZ’ZZZZZZZZZZZ*’ZZ42 

53  SWAN  Routines .  43 

5.3.  I  Command  Reading  Routines  (ocpcre  FOR  File ) . 43 

53.1.1  Logical  Function  EQCSTR .  43 

53.1.2  Subroutine  GETKAR . ZZZZZZZZZZZZZZZ*43 

53. 1 .3  Subroutine  IGNORE .  43 

53.1.4  Subroutine  INCSTR .  43 

53.1.5  Subroutine  INCTIM . ZZZZZZZZZZZ”ZZ*ZZZZ44 

53.1.6  Subroutine  INDBLE .  45 

5.3. 1 .7  Subroutine  ININTG . ZZZ.Z**IZZ"ZZIZ1”ZZZZZZ  45 

53.1.8  Subroutine  ININTV .  4^ 

53.1.9  Subroutine  INKEYW . ZZZZZZIZZZZZiI.ZZZZZ*46 

53.1.10  Subroutine  INREAL .  47 

53.1.11  Subroutine  KEYWIS . Z'Z'.ZZZZZZZ' . 47 

53.1.12  Subroutine  LEESEL . ZZZ.ZIZZZZZ..ZZZZ*  48 

53.1.13  Subroutine  NWLINE .  43 

5.3.1.14  Subroutine  PUTKAR . ZZ*Z!’ZZZZZZiIZZ*ZIZZZIZ48 

53.1.15  Subroutine  RD1NT .  49 

53.1.16  Subroutine  UPCASE . ZZ*Z*”ZZ'Z . 49 

53.1.17  Subroutine  WRNKEY . ZZZZZZZ'Z'ZZZZZZ’Z 

5. 3. 2  Dynamic  Data  Pool  Routines  (ocpdpn  FOR  Files ) .  49 

53.2.1  Subroutine  COPYCH . ZZZZZZZZZ  49 

53.2.2  Subroutine  DPADDP .  50 

5.3.23  Subroutine  DPBLDP .  5q 

53.2.4  Subroutine  DPCHEK . ZZZZZZ!Z . 5 1 

53.2.6  Subroutine  DPEXPR . ZZZ’iZ'ZZZZZZZl 

53.2.7  Integer  Function  DPGETI .  5j 

53.2.9  Subroutine  DPINQA .  52 

5.3.2.10  Subroutine  DPINQP .  52 

5.3.2. 1 1  Subroutine  DPMAXR .  53 

53.2.12  Subroutine  DPMINR . ZZZ.ZZZ . 53 

53.2.13  Subroutine  DPPUTR . ZZZZZ’** . 54 

53.2.14  Subroutine  DPSHFT . Z ZZZ**Z . 54 

5.3.2.15  Character  Function  DPTYPE . ZZZZZZZZZZZZZZZ~54 

53.2.16  Integer  Function  IADRS .  55 

5.3.2.17  Integer  Function  OCINTG .  55 

5.3.2.18  Real  Function  OCREAL .  55 

5.3.3  Installation  Dependent  Subroutines  (ocpids  FOR  Files ) . 55 

5.33.1  Subroutine  CMTOPL .  55 

53.3.2  Subroutine  DTSTTI .  56 

533.3  Subroutine  DTTIST .  56 

53.3.4  Subroutine  OCDTIM . ZZZ!ZZZZZ*Z”*ZZZ* . 57 

53.3.5  Subroutine  OCPINI .  57 

533.6  Subroutine  OPENDF .  57 

53.3.8  Subroutine  OPFRAM . *ZIZZZZZZZZZZ*ZZZZZZZl57 

5.33.9  Subroutine  OPIN1T .  5g 

5.33.10  Subroutine  OPMARK .  5g 

5.33.1 1  Subroutine  OPNPEN . 1ZZZZZZZ”*ZZZ*”Z . 59 

53.3. 1 2  Subroutine  OPPLOT . .Z”ZZZ**Z" . 59 

533.13  Subroutine  OPTEXT . ZZZ.ZZZZZZZ  * . 59 

53.3.14  Subroutine  OPTYPE . Z.ZIZZZZ.ZZZZ.'Z"  . . 60 

5. 3. 4  Plot  Routines  (ocplot  FOR  File) . <5 q 


vi 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


5.3.4.1  Subroutine  ISOL1N . 60 

53.4.2  Subroutine  OCPISO . 61 

5.3.43  Subroutine  OCPSCH . 62 

53.4.4  Subroutine  OCPSUB . 62 

53.4.5  Subroutine  OCPVEC . 63 

53.4.6  Subroutine  OPNUMB . 63 

53.4.7  Subroutine  OPSYMB . 64 

53.4.8  Subroutine  PLOTF . 64 

53.4.9  Subroutine  PSYM . 65 

5.3.4.10  Subroutine  SNYPT1 . 65 

53.4.1 1  Subroutine  SNYPT2 . 65 

5.3.5  Miscellaneous  Routines  (ocpmix  FOR  Files) . 66 

53.5.1  Subroutine  BUGFIX . 66 

53.5.2  Subroutine  DTINTT . 66 

5.3.53  Subroutine  DTRET1 . 67 

53.5.4  Real  Function  DTTIME . 67 

53.5.5  Character  Function  DTTIWR . 67 

53.5.6  Logical  Function  EQREAL . 68 

53.5.7  Subroutine  FOR . 68 

53.5.8  Subroutine  INAR2D . 69 

53.5.9  Subroutine  LSPLIT . 69 

5.3.5.10  Subroutine  MSGERR . 70 

53.5.1 1  Subroutine  REP  ARM . 70 

5.3.5.12  Logical  Function  STPNOW . 71 

5.3.5.13  Subroutine  STRACE . 71 

5.3.5.14  Subroutine  TABHED . 71 

5.3.6  Computation  Subroutines  (swancoml  FOR  File) . 72 

5.3.6. 1  Subroutine  ACTION . 72 

53.6.2  Subroutine  INSAC . 74 

5.3.63  Subroutine  PHILIM . 74 

53.6.4  Subroutine  RESCALE . 75 

53.6.5  Subroutine  SACCUR . 75 

53.6.6  Subroutine  SCOMPU . 76 

53.6.7  Subroutine  S1NTGRL . 76 

53.6.8  Subroutine  SOLBAND . 77 

53.6.9  Subroutine  SOLMAT . 78 

5.3.6.10  Subroutine  SOLMT1 . 79 

53.6.11  Subroutine  SOLPRE . 80 

5.3.6.12  Subroutine  SOURCE . 81 

5.3.6.13  Subroutine  SWCOMP . 84 

5.3.6.14  Subroutine  SWOMPU . 85 

5.3.7  Source  Terms  and  Dissipation  Subroutines  (swancom2  FOR  File) . 88 

5.3.7. 1  Subroutine  BRKPAR . 88 

53.7.2  Subroutine  FRABRE . 89 

5.3.73  Subroutine  FRABRE2 . 89 

53.7.4  Subroutine  PLTSRC . 90 

53.7.5  Subroutine  SBOT . 90 

53.7.6  Subroutine  SSURF . 91 

53.7.7  Subroutine  SWCAP . 92 

5.3.8  Source  Terms  for  Generation  of  Wave  Energy  Subroutines  (swancom3  FOR  File) . 93 

53.8.1  Subroutine  SWIND0 . 93 

53.8.2  Subroutine  SWIND3 . 94 

5.3.83  Subroutine  SWIND4 . .., . 95 

53.8.4  Subroutine  SW1ND5 . 96 

53.8.5  Subroutine  WNDPAR . 97 

53.8.6  Subroutine  W1NDP1 . 98 

53.8.7  Subroutine  WINDP2 . . . 99 

53.8.8  Subroutine  WINDP3 . 100 

5.3.9  Nonlinear  Four  Wave-wave  Interaction  Subroutines  (swancom4  FOR  File) . 101 

53.9.1  Subroutine  BND4WW . 101 


vii 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


53.9.2 

Subroutine  FAC4WW . 

101 

53.93 

Subroutine  FILNL3 . 

10? 

53.9.4 

Subroutine  RANGE4 . 

10? 

53.9.5 

Subroutine  STRIAD . 

103 

53.9.6 

Subroutine  STR1AN . 

103 

53.9.7 

Subroutine  SWSNL1 . 

104 

53.9.8 

Subroutine  SWSNL2 . 

JOS 

53.9.9 

Subroutine  SWSNL3 . 

in* 

5.3.10 

Subroutines  for  the  Propagation  in  X,  Y,  S,  D  Space  and  Parameters  (swancom5  FOR 

File) 

107 

53.10.1 

Subroutine  ADDDIS . 

107 

5.3.10.2 

Subroutine  DSPHER . 

108 

53.10.3 

Subroutine  SANDL . 

100 

5.3.10.5 

Subroutine  SORDUP . 

1 OQ 

53.10.6 

Subroutine  SPREDT . 

110 

53.10.7 

Subroutine  SPROSD . 

1  ]  ] 

53.10.8 

Subroutine  SPROXY . 

1 1? 

53.10.9 

Subroutine  STRSD . 

in 

53.10.10 

Subroutine  STRSSB . 

1 14 

5.3.10.11 

Subroutine  STRSS1 . 

m 

53.10.13 

Subroutine  STRSXY . 

1 16 

5.3.10.14 

Subroutine  SWAPAR . 

1 16 

53.10.15 

Subroutine  SWPSEL . 

117 

5.3.11 

Subroutines  for  Solving  the  Band  Matrix  (swancomi  FOR  File ) 

. 119 

53.11.1 

Subroutine  CGSTAB . 

1 1Q 

53.11.2 

Subroutine  DAXPY . 

1?0 

53.11.3 

Subroutine  DCOPY . 

190 

5.3.11.4 

Double  Precision  Function  DDOT . 

190 

53.11.5 

Subroutine  DIAG . 

1?1 

5.3.11.6 

Subroutine  D1AGMU . 

1?1 

53.11.7 

Subroutine  DINVL3 . 

19? 

5.3.11.8 

Subroutine  DINVU3 . 

1?? 

5.3.11.9 

Subroutine  DMLU3 . 

1?3 

53.11.10 

Double  Precision  Function  DNRM2 . 

. 124 

53.11.11 

Subroutine  DRUM  A 1 . 

1?4 

5.3.11.12 

Subroutine  ISSOLV . 

l?s 

5.3.11.13 

Subroutine  MKPREC . 

l?s 

5.3.11.14 

Subroutine  PREVC . 

19* 

5.3.11.15 

Subroutine  PRIRES . 

19* 

5.3.11.16 

Subroutine  SWCOVA2D . 

1?7 

5.3.11.17 

Subroutine  SWDISDT2 . 

1 77 

53.11.18 

Subroutine  SWESSBC . 

128 

53.11.19 

Subroutine  SWJCTA2D . 

128 

53.11.20 

Subroutine  SWSOLV . 

198 

5.3.11.21 

Subroutine  SWTRAD2D . 

19Q 

5.3.11.22 

Subroutine  VULMAT . 

no 

5.3.11.23 

Subroutine  VULMT1 . 

no 

5.3.12 

SWAN  Main  Program  and  Miscellaneous  Routines  (swanmain  FOR  File)  . 

. 131 

53.12.1 

Subroutine  ERRCHK . 

ni 

5.3.12.2 

Subroutine  FLFILE . 

m 

5.3.123 

Subroutine  RBFILE . 

n2 

5.3.12.4 

Subroutine  RESPEC . 

133 

5.3.12.5 

Subroutine  SINARR . 

134 

5.3.12.6 

Logical  Function  S1NBTG . 

. 134 

5.3.12.7 

Logical  Function  SINCMP . 

134 

5.3.12.8 

Subroutine  SINUPT . 

ns 

53.12.9 

Subroutine  SNEXTI . 

1 3S 

5.3.12.10 

Subroutine  SPRCON . 

n* 

5.3.12.11 

Real  Function  SVALQI . 

. .136 

5.3.12.12 

Program  SWAN . 

. 137 

viii 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


5.3.12.14  Subroutine  SWINCO . 137 

5.3.12.15  Subroutine  SWINIT . 138 

5.3.12.16  Subroutine  SWMA1N . 138 

5.3. 1 2. 1 7  Subroutine  SWPREP . 1 39 

5.3.12.18  Subroutine  SWRBC . 139 

5.3.13  Main  Output  Routines  (swanoutl  FOR  File) . 140 

5.3.13.1  Subroutine  SWIPOL . 140 

5.3. 1 3.2  Subroutine  SWODDC . 1 40 

5.3.13.3  Subroutine  SWOEXA . 141 

5.3.13.4  Subroutine  SWOEXC . 142 

5.3.13.5  Subroutine  SWOEXD . 142 

5.3.13.6  Subroutine  SWOEXF . 142 

5.3.13.7  Subroutine  SWOINA . 143 

5.3.13.8  Subroutine  SWORDC . 144 

5.3.13.9  Subroutine  SWOUTP . 144 

5.3.14  Output  Routines  ( swanoutl  FOR  File ) . 145 

5.3.14.1  Subroutine  PLOTCG . 145 

5.3.14.2  Subroutine  SBLKPT . 145 

5.3.14.3  Subroutine  SPLOER . 146 

5.3.14.4  Character  Function  SUHEAD . 146 

5.3. 14.5  Subroutine  SWBLOK . 146 

5.3.14.6  Subroutine  SWCMSP . 147 

5.3.14.7  Subroutine  SWPLOT . 148 

5.3.14.8  Subroutine  SWSPEC . 148 

5.3.14.9  Subroutine  SWSTAR . 149 

5.3.14.10  Subroutine  SWTABP . 150 

5.3.15  Output  routines  (swanout3  FOR  File) . 150 

5.3. 1 5. 1  Subroutine  PLSPEC . 1 50 

5.3.15.2  Subroutine  PLTAR1 . 151 

5.3.15.3  Subroutine  PLTAR2 . 151 

5.3. 1 5.4  Subroutine  PLTCIR . 1 52 

5.3.15.5  Subroutine  PLTISO . 152 

5.3.15.6  Subroutine  PLTLN1 . 153 

5.3.15.7  Subroutine  PLTSEG . 153 

5.3.15.8  Subroutine  PLT2DS . 153 

5.3.15.9  Subroutine  PSIGMA . 154 

5.3.15.10  Subroutine  PTHETA . 155 

5.3.15.11  Subroutine  SWPLSP . 155 

5.3.15.12  Subroutine  TRAFO . 156 

5.3.16  Preconditioning  Subroutines  ( swanprel  FOR  File) . 156 

5.3.16.1  Subroutine  BACKUP . 156 

5.3.16.2  Subroutine  CGBOUN . 157 

5.3.16.3  Subroutine  CGINIT . 157 

5.3.16.4  Subroutine  INITVA . 157 

5.3.16.5  Logical  Function  PVALID . 158 

5.1 .16.6  Subroutine  SEPARAREA . 158 

5.3.16.7  Subroutine  SINPGR . 159 

5.3.16.8  Subroutine  SREDEP . 159 

5.3.16.9  Subroutine  SSFILL . 160 

5.3.16.10  Subroutine  SWDIM . 160 

5.3.16.1 1  Subroutine  SWREAD . 161 

5.3.16.12  Logical  Function  VALIDBP . 162 

5.3.17  File  Two  of  the  Preconditioning  Subroutines  (swanpre2  FOR  File) . 162 

5.3.17.1  Subroutine  BCFILE . 162 

5.3.17.2  Subroutine  BC_POINTS . 163 

5.3.17.3  Subroutine  BCWAMN . 163 

5.3.17.4  Subroutine  BCWW3N . 164 

5.3.17.5  Logical  Function  BOUNPT . 1 65 

5.3.17.6  Subroutine  RETSTP . 165 

5.3.17.7  Function  SIRAY . 166 


IX 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


5.3.17.8 

5.3.17.9 

5.3.17.10 

5.3.17.11 

5.3.17.12 

5.3.17.13 

5.3.18 

5.3.18.1 

5.3.18.2 

5.3.18.3 

5.3.18.4 

5.3.18.5 

5.3.18.6 

5.3.18.7 

5.3.18.9 

5.3.18.10 

5.3.18.11 

5.3.18.12 

5.3.18.13 

5.3.18.14 

5.3.18.15 

5.3.18.16 

5.3.18.17 

5.3.18.18 

5.3.18.19 

5.3.18.20 

5.3.18.21 

5.3.18.22 

5.3.18.23 

5.3.18.24 

5.3.18.25 

5.3.18.26 

5.3.18.27 

5.3.18.28 

5.3.18.29 

5.3.18.30 

5.3.18.31 

5.3.18.32 

5.3.18.33 

5.3.18.34 

5.3.18.35 

5.3.18.36 

5.3.19  1 


Subroutine  SPROUT . 

Subroutine  SVARTP .  j67 

)  Subroutine  SWBOUN .  167 

>  Subroutine  SWREOQ . . 168 

5  Subroutine  SWREPS . . 169 

SWAN  Service  Routines  (swanser  FOR  File) . /<59 

Subroutine  AC2TST .  I69 

Real  Function  ANGDEG .  170 

Real  Function  ANGRAD .  170 

Subroutine  CHGBAS .  170 

Subroutine  CVCHEK . 171 

Subroutine  CVMESH .  171 

Real  Function  DEGCNV .  171 

Subroutine  EVALF .  172 

)  Real  Function  GAMMA .  172 

Function  GAMMLN .  172 

!  Subroutine  HSOBND .  172 

1  Logical  Function  INFRAM .  173 

I-  Logical  Function  INMESH .  1 73 

i  Subroutine  KSCIP1 .  173 

>  Subroutine  NEWTON .  1 74 

r  Subroutine  NEWT1D .  174 

!  Subroutine  OBSTLINE .  1 75 

1  Recursive  Subroutine  OBSTMOVE .  175 

I  Subroutine  PCOAST .  176 

Subroutine  PLNAME .  176 

Subroutine  PLOSIT .  177 

Subroutine  PLOTU .  177 

Subroutine  PN AMES .  177 

Subroutine  READXY .  l7g 

Subroutine  REFIXY .  17g 

Subroutine  REFLECT .  178 

Subroutine  SETUPP .  179 

Subroutine  SETUP2D .  . 1  8q 

Subroutine  SINTRP .  Igl 

Subroutine  SSHAPE .  Igj 

Subroutine  S WOBST .  1  g2 

Subroutine  S WTRCF .  1  g3 

Logical  Function  TCROSS .  Ig3 

Logical  Function  TCROSS2 .  1 34 

Subroutine  WRSPEC .  lg4 

Module  Containing  Global  Variables  (swmodl  FOR  File) . 184 


Notes . 


7 . 2  Acronyms  and  Other  Abbreviations .  135 

Table  of  Common  Blocks .  jg5 


Appendix  I .  jgg 


x 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


LIST  OF  FIGURES 

Figure  4.3-1  Flow  diagram  summarizing  the  SWAN  Version  40.11  execution  steps....  14 

LIST  OF  TABLES 

Table  5.2-1.  Coefficients  a,  [5  determined  by  the  shape  of  the  dam  (Seelig,  1979) . 22 

Table  5.2-2:  Summary  of  options  available  for  SWAN  operation  modes . 23 


xi 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


1.0  SCOPE 

1.1  Introduction 

Simulating  WAves  Nearshore  (SWAN)  is  a  third-generation  numerical  wave  model 
developed  for  wave  computations  in  coastal  regions  and  inland  waters.  The  model  is 
based  on  an  Eulerian  formulation  of  the  discrete  spectral  balance  of  action  density  that 
accounts  for  refractive  propagation  over  arbitrary  bathymetry  and  current  fields.  SWAN  is 
driven  by  boundary  conditions  and  local  winds.  The  processes  of  wind  generation, 
whitecapping,  quadruplet  wave-wave  interactions,  bottom  dissipation,  triad  wave-wave 
interactions  and  depth-induced  wave  breaking  are  represented  explicitly,  though  SWAN 
does  not  account  for  diffraction.  SWAN’s  numerical  propagation  scheme  is  implicit;  thus 
the  model  is  most  efficient  (relative  to  other  models)  when  applied  to  cases  with 
relatively  high  geographic  resolution  (i.e.  cases  of  smaller  scale).  SWAN  has  been 
validated  by  comparisons  with  analytical  solutions  and  laboratory  and  field  observations. 

SWAN  is  the  state  of  the  art  phase-averaged  coastal  wave  model  (at  the  time  of  this 
writing).  As  a  third  generation  model,  SWAN  models  propagation  and  dissipation 
explicitly.  It  also  allows  for  simple  integration  of  future  developments  in  formulations  for 
the  physical  processes  mentioned  above,  as  SWAN  is  a  strictly  and  logically  modular 
program. 


1.2  Document  Overview 

The  purpose  of  this  Software  Design  Description  (SDD)  is  to  describe  the  software  design 
and  code  of  the  Simulating  WAves  Nearshore  model  (SWAN).  The  SDD  gives  a 
summary  of  model  operations,  physics  and  basic  equations  and  a  description  of  source 
code  components.  Most  importantly,  the  SDD  gives  a  detailed  description  of  the  source 
code  components,  such  as  subroutines  and  common  blocks,  which  make  up  the  SWAN 
model. 
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3.0  MODEL  DESIGN  DECISION 


SWAN  Version  40.01  has  been  modified  to  become  Version  40.1 1.  This  section  will 
discuss  the  additions,  changes,  compatibility,  bug  fixes  and  implementation  of  SWAN 
Version  40.1 1. 


3.1  Additions  to  SWAN 

The  first  addition  made  to  SWAN  Version  40.1 1  allows  for  nesting  in  WAVEWATCH 
HI.  SWAN  can  now  compute  on  spherical  coordinates  (latitude  and  longitude),  allowing 
for  calculations  in  laboratory  situations,  coastal  regions,  shelf  seas  and  oceans.  The  new 
version  also  allows  the  user  to  define  obstacles  at  which  waves  are  reflected,  such  as 
coastlines  or  breakwaters,  as  opposed  to  just  transmitting  waves  through  obstacles.  Lastly, 
a  higher  order  propagation  scheme  was  introduced  for  both  the  stationary  and 
nonstationary  modes. 


3.2  Changes  to  SWAN 

The  changes  made  to  SWAN  begin  with  the  improvement  of  approximating  the 
bathymetry  in  refraction  computations.  In  order  to  give  robust  (but  not  necessarily 
accurate)  results  in  cases  of  poor  resolutions  in  bathymetry,  currents  or  wave  field,  the 
user  can  now  activate  a  limiter  to  avoid  waves  turning  over  more  than  90  degrees  in  one 
spatial  grid  step.  The  limiter  on  the  refraction  is  switched  off  on  default.  In  Version  40.01 
the  Backward  Space,  Backward  Time  (BSBT)  numerical  propagation  scheme  was  the 
only  scheme  available.  Now,  using  Version  40.1 1  in  stationary  mode  the  Second  ORDer 
UPwind  (SORDUP)  scheme  is  chosen  as  default,  while  in  non-stationary  mode  the 
Stelling-scheme  is  default.  The  BSBT  is  still  optionally  available. 


3.3  Compatibility  of  SWAN 


SWAN  Version  40.1 1  is  fully  downward  compatible  with  Version  40.01.  Due  to  the 
changes  in  SWAN,  a  comparison  of  test  results  between  Versions  40.01  and  40.1 1  may 
show  differences  in  the  results. 


3.4  Bug  Fixes 

The  purpose  of  describing  the  bug  fixes,  is  to  allow  the  user  to  identify  previous  SWAN 
runs  that  may  have  encountered  these  problems  (either  at  runtime  or  in  hindsight).  The 
following  are  five  bugs  that  were  fixed  in  Version  40.1 1: 
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1 .  The  output  in  the  form  of  starplots  on  a  rotated  output  frame; 

2.  The  implementation  of  the  QUANTITY  command; 

3.  Spectra]  output  of  source  terms  on  land  points; 

4.  The  output  of  2-D  spectra  in  combination  with  rotated  grids  or  a  directional 
sector; 

5.  The  interpolation  for  test  points  too  close  to  land  points. 

3.5  Implementation 

SWAN  (40.1 1)  has  been  implemented  so  that  all  (except  for  one)  obsolete  FORTRAN  95 
features  have  been  removed  to  avoid  compiler  warnings.  The  implementation  of 
allocatable  arrays  was  done  to  avoid  the  use  of  the  pool  array  for  newly  introduced  arrays. 
Also  implemented  were  modules  to  avoid  lengthy  argument  lists  of  subroutines.  The 
implementation  of  FORTRAN  90  implies  that  SWAN  Version  40.11  will  not  compile 
under  FORTRAN  77. 


4.0  MODEL  ARCHITECTURAL  DESIGN 
4.1  Model  Components 

SWAN  is  a  single  computer  program  that  is  separated  into  three  main  files  consisting  of 
an  executable  file,  a  command  file,  and  a  run  file. 

a.  Executable  File-  The  name  of  the  executable  file  is  “a.out”  for  the  versions 
running  under  Unix  and  “swanmain.exe”  for  the  PC  version  generated  with  the 
Lahey  Fortran90  compiler  (in  case  swanmain.for  is  first  on  the  list).  Remove 
the  "a.out"  and  replace  with  “swan.x”  or  “swan.exe”. 

b.  Command  File-  The  command  file  contains  the  user’s  input  and  selected 
instructions  to  run  SWAN.  The  command  file,  which  has  the  extension  .swn 
must  be  presented  to  SWAN  is  American  Standard  Code  for  Information 
Interchange  (ASCII)  format. 

c.  Run  File-  Depending  on  which  system  is  being  used,  either  swan.bat  (for  MS- 
DOS  systems)  or  swan.unix  (for  Unix  systems)  is  the  name  of  the  run  file.  MS- 
DOS  is  not  case-sensitive;  however,  Unix  systems  are. 
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4.2  System  Requirements 

The  core  memory  for  SWAN  is  determined  at  the  installation  of  SWAN  on  the  user’s 
computer  system.  The  required  storage  capacity  in  SWAN  depends  on  the  number  of  grid 
points  in  x-  and  y-direction  (mxc*myc)  and  the  number  of  points  in  frequency  and 
directional  space  (msc*mdc).  Calculating  nonlinear  four  wave-wave  interactions  per 
sweep,  instead  of  per  iteration,  decreases  the  amount  of  required  memory  by  a  factor  of 
2/3  (see  Section  5.0  in  the  User’s  Manual-Carroll  and  Kelly,  2002).  Other  storage 
restrictions  with  calculating  nonlinear  four  wave-wave  interactions  are  summarized  in 
Table  4.1 1-1  and  4.1 1-2  in  the  User’s  Manual  (Carroll  and  Kelly,  2002). 

To  run  the  SWAN  program  for  test_cases,  55  Mb  of  free  internal  memory  is 
recommended.  SWAN  requires  100  to  500  Mb  of  memory  for  realistic  cases,  whereas  for 
more  stationary  or  1-D  cases  significantly  less  memory  is  needed.  The  number  of  files 
addressable  by  the  DOS  system  is  at  least  twenty  therefore  the  command  line  FILES=20 
(or  some  higher  number  if  necessary)  should  be  included  in  the  file  config.sys  of  the  DOS 
operating  system. 


4.3  Concept  of  execution 


SWAN  is  a  single  program,  consisting  of  an  executable  file  with  extension  .exe,  a 
command  file  with  extension  .svcn,  and  a  run  file  with  either  extension  .bat  or  .unix, 
depending  on  whether  or  not  MS-DOS  or  Unix  is  being  used.  The  execution  of  SWAN 
consists  of  three  steps  1)  implementing  SWAN  on  the  user’s  computer,  2)  editing  the 
command  file  for  a  particular  model  run,  and  3)  running  SWAN. 

The  first  step,  implementing  SWAN,  can  be  done  in  the  following  manner: 

•  Copy  the  source  code  and  files  from  the  SWAN  web  site 
(http://swan.ct.tudelft.nl/home.htm). 

•  Implement  published  bug  fixes. 

•  Make  the  necessary  modifications  on  dependent  parts  of  code  during  installation. 

•  Compile  the  source  code. 

•  Link  the  compiled  source  code. 

•  Test  the  executable  SWAN  and  compare  test  results  with  those  on  the  web  site. 

See  the  SWAN  User’s  Manual  for  detailed  information  on  implementation  (Carroll  and 
Kelly,  2002). 

Next,  the  command  file  must  be  located  and  edited.  The  name  of  the  command  file  from 
the  source  code  will  have  the  extension  .swn.  The  user  must  present  SWAN  with  one  file 
(in  ASCII)  containing  all  of  the  actual  commands.  Within  the  command  file  the  user 
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should  give  the  command’s  keyword,  required  or  optional  data,  and  comments.  The 
keyword,  which  is  usually  the  name  of  the  command,  indicates  the  primary  function  of 
that  command  and  should  comply  with  the  rules  of  file  identification  of  the  computer 
system  on  which  SWAN  is  run.  To  help  with  editing  the  input  files  for  SWAN,  the 
SWAN  web  site  contains  a  template  command  file  called  swan.edt.  The  SWAN  User’s 
Manual  provides  a  complete  description  of  the  commands  available  for  selection  in 
SWAN.  Details  of  the  command’s  keyword,  data  and  comments  and  the  way  in  which  the 
user  must  enter  them  may  be  found  in  Appendix  A  of  the  User’s  Manual  (Carroll  and 
Kelly,  2002). 

The  final  step  is  to  run  SWAN.  Running  SWAN  requires  three  actions.  First  the  user 
must  copy  the  command  file  to  INPUT  (assuming  INPUT  is  the  standard  filename  for 
command  input).  Next,  the  user  will  run  SWAN  and  view  the  output  by  copying  the 
PRINT  file  (assuming  PRINT  is  the  standard  filename  for  output).  See  Section  4.4.1  for  a 
description  of  the  types  of  output  files  that  are  generated  by  SWAN. 

A  flow  diagram  illustrating  the  basic  steps  for  the  operation  of  SWAN  is  shown  in  Figure 
4.3-1. 
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Concept  of  Execution 


Copy  the  source  code  and  files  from  the 
SWAN  web  site 

(http://swan.ct.tudelft.nl/home.htm). 

Implement  published  bug  fixes. 

Make  the  needed  modifications  on 
dependent  parts  of  code  during 
installation. 

Compile  the  source  code. 

Link  the  compiled  source  code. 

Test  the  executable  SWAN  and  compare 
test  results  with  those  on  the  web  site. 


•  Provide  the  command’s  keywords  or  file 
names. 

•  Provide  the  command’s  required  or 
optional  data. 

•  Provide  comments  after  one  $  sign  or 
between  two  $  signs. 


Copy  the  command  file  to  INPUT. 
Run  SWAN. 

Edit  the  file  PRINT  to  see  output. 


Figure  4.3-1  Flow  diagram  summarizing  the  SWAN  Version  40.1 1  execution  steps. 
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4.4  Interface  Design 

4.4.1  Interface  Identification  and  Diagrams 

The  user  must  provide  the  following  input  files  to  SWAN: 

•  A  command  file  containing  the  user  selected  instructions  to  run  SWAN. 

•  File(s)  containing  the  bottom  current,  friction,  and  wind  (if  relevant). 

•  File(s)  containing  the  wave  field  at  the  model  boundaries  (if  relevant). 

SWAN  produces  output  only  at  the  user’s  request.  The  output  is  available  for  many 
different  wave  and  wave-related  parameters.  The  types  of  files  generated  by  the  output  are 
given  below: 

•  Print  Files-  Error  messages  appear  in  a  PRINT  file,  which  can  be  renamed  by  the 
user  with  a  batch  (DOS)  or  script  (Unix)  command.  In  the  DOS  and  Unix  systems 
the  file  PRINT  is  renamed  to  the  name  of  the  command  file  (examples  are  on  the 
SWAN  web  site),  with  the  extension  .swn  replaced  by  .prt.  All  files  with 
extension  .prt  are  referred  to  as  print  files. 

•  Numerical  Output  Files-  Output  from  commands  such  as  BLOCK  or  TABLE 
appears  in  files  with  user  provided  names. 

•  Plot  Files-  One  or  more  plot  files  are  generated  by  the  PLOT  command.  If  the  user 
does  not  specify  a  filename  the  plot  file  has  the  name  PLF...  where  the  ran 
number  as  defined  in  the  command  PROJECT  as  nr  appears  on  the  dots. 

•  Error  Files-  A  file  called  ERRFILE,  which  contains  the  error  messages,  is  created 
only  when  SWAN  produces  error  messages.  Existence  of  this  file  is  an  indication 
that  results  must  be  carefully  examined. 

•  Grid  Point  Error  Files-  A  file  called  ERRPTS  contains  the  grid  points  where 
specific  errors  occurred  during  the  calculation,  such  as  non-convergence  of  the 
iterative  matrix-solver.  Existence  of  this  file  is  an  indication  to  study  the  grid 
point  spectrum  more  carefully. 
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5.0  SWAN  DETAILED  DESIGN 
5.1  Constraints  and  Limitations 

Despite  the  improvements  of  Version  40.1 1,  a  few  limitations  still  remain: 

1.  Diffraction  is  not  modeled  in  SWAN,  so  SWAN  should  not  be  used  in  areas  where 
variations  in  wave  height  are  large  within  a  horizontal  scale  of  a  few  wavelengths. 
Because  of  this,  the  wave  field  computed  by  SWAN  will  generally  not  be  accurate 
in  the  immediate  vicinity  of  obstacles,  and  certainly  not  in  harbors. 

2.  SWAN  does  not  calculate  wave-induced  currents.  If  relevant,  such  currents  should 
be  provided  as  input  to  SWAN  (e.g.  from  a  hydrodynamical  model,  which  can  be 
driven  by  waves  from  SWAN  in  an  iteration  procedure).  As  an  option  SWAN 
computes  wave  induced  set-up. 

3.  The  Lumped  Triad  Approximation  (LTA)  used  in  triad  wave-wave  interactions 
seems  to  depend  on  the  width  of  the  directional  distribution  of  the  wave  spectrum. 
The  present  tuning  in  SWAN  works  reasonably  well  in  most  cases.  It  was  obtained 
from  observations  in  a  narrow  wave  flume  (long-crested  waves). 

4.  The  Discrete  Interaction  Approximation  (DIA)  used  in  quadruplet  wave-wave 
interactions  depends  on  the  width  of  the  directional  distribution  of  the  wave 
spectrum.  DIA  works  reasonably  well  in  many  cases  but  gives  a  poor 
approximation  for  long-crested  waves  (narrow  directional  distribution)  that  depend 
on  the  frequency  resolution.  The  DIA  has  also  proven  to  be  a  poor  approximator  of 
frequency  resolutions  very  different  from  10%.  SWAN  shares  this  fundamental 
limitation  with  other  third-generation  wave  models  such  as  WAM  and 
WAVEWATCH  m. 

5.  This  version  of  SWAN  (40.1 1)  may  be  used  on  any  scale  relevant  for  wind 
generated  surface  gravity  waves  (high-quality  propagation  (third  order  diffusion) 
and  Cartesian  or  spherical  coordinates).  The  background  for  providing  SWAN  with 
such  flexibility  is  to: 

•  Allow  SWAN  to  be  used  from  laboratory  conditions  to  shelf  seas  (but  not 
harbors,  see  above)  and 

•  Nest  SWAN  in  the  WAM  or  WAVEWATCH  m  models,  which  are 
formulated  in  terms  of  spherical  coordinates. 

These  facilities  are  not  meant  to  support  the  use  of  SWAN  on  oceanic  scales. 
SWAN  has  not  been  extensively  tested  and  is  less  efficient  on  oceanic  scales  than 
WAVEWATCH  III  and  probably  less  efficient  than  WAM  (SWAN  does  not 
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parallelize  or  vectorize  well).  SWAN  developers  have  no  plans  to  apply  SWAN  to 
blue  water. 

There  are  a  few  constraints  that  the  user  might  encounter: 

1.  Sometimes  the  user  input  to  SWAN  is  such  that  SWAN  produces  unreliable  and 
possibly  even  unrealistic  results.  This  may  be  the  case  if  the  bathymetry  or  the  wave 
field  is  not  well  resolved.  Be  aware  that  the  grid  on  which  the  computations  are 
performed  interpolates  from  the  grids  on  which  the  input  is  provided;  different 
resolutions  for  these  grids  (which  are  allowed)  can  therefore  create  unexpected 
interpolation  patterns  on  the  computational  grid. 

2.  Other  problems  are  due  to  more  fundamental  shortcomings  of  SWAN  (which  may 
or  may  not  be  typical  for  third-generation  wave  models)  and  unintentional  coding 
bugs  such  as: 

•  The  user  can  request  that  refraction  over  one  spatial  grid  step  is  limited  to  90°. 

•  SWAN  cannot  handle  wave  propagation  on  super-critical  current  flow.  If 
such  flow  is  encountered  during  SWAN  computations,  the  current  is  locally 
reduced  to  sub-critical  flow. 

•  If  the  water  depth  is  less  than  some  user-provided  limit,  the  depth  is  set  at  that 
limit  (default  is  0.05  m). 

•  SWAN  may  not  reproduce  the  user-imposed  wave  boundary  conditions  as 
SWAN  replaces  the  imposed  waves  that  move  out  of  the  computational  area  at 
the  boundaries  with  the  computed  waves  that  move  out  of  the  computational 
area  at  the  boundaries. 

•  SWAN  may  have  convergence  problems. 

Because  of  such  scenarios,  limiters,  shortcomings  and  bugs,  the  results  may  look 
realistic  but  they  may  (locally)  not  be  accurate.  Any  change  in  these  limitations  or 
problems  (in  particular  newly  discovered  coding  bugs  and  their  fixes)  are  published 
on  the  SWAN  web  site  (http://swan.ct.tudelft.nl)  and  implemented  in  new  releases  of 
SWAN. 

5.2  Logic  and  Basic  Equations 

5.2.1  General  Formulation 

The  waves  in  SWAN  are  described  with  the  two-dimensional  wave  action  density 
spectrum,  even  when  nonlinear  phenomena  dominate  (e.g.,  in  the  surf  zone).  The 
rationale  for  using  the  spectrum  in  such  highly  nonlinear  conditions  is  that  even  in  these 
conditions  it  seems  possible  to  predict  with  reasonable  accuracy  spectral  distribution  of 
the  second  order  moment  of  the  waves  (although  it  may  not  be  sufficient  to  fully  describe 
the  waves  statistically).  The  spectrum  that  is  considered  in  SWAN  is  the  action  density 
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spectrum  rather  than  the  energy  density  spectrum  since  in  the  presence  of  currents,  action 
density  is  conserved  whereas  energy  density  is  not  (Whitham,  1974).  The  independent 
variables  are  the  relative  frequency  (as  observed  in  a  frame  of  reference  moving  with  the 
action  propagation  velocity)  and  the  wave  direction  (the  direction  normal  to  the  wave 
crest  of  each  spectral  component).  The  action  density  is  equal  to  the  energy  density 
divided  by  the  relative  frequency.  In  SWAN,  this  spectrum  may  vary  in  time  and  space. 


5.2.1.1  Action  Balance  Equation 


The  evolution  of  the  wave  spectrum  in  SWAN  is  described  by  the  spectral  action  balance 
equation,  which  for  Cartesian  coordinates  is  (e.g.,  Hasselmann  et  al.,  1973): 


—  N  +  —  c  N  +  ^-c  N  +  y~c  N  +  -^-c0N  =  — 
&  dx  dy  }  da  00  6  a 


(la) 


The  first  term  in  the  left-hand  side  of  this  equation  represents  the  local  rate  of  change  of 
action  density  in  time,  the  second  and  third  term  represent  propagation  of  action  in 
geographical  space  (with  propagation  velocities  cx  and  cy  in  x-  and  y-space,  respectively). 
The  fourth  term  represents  shifting  of  the  relative  frequency  due  to  variations  in  depths 
and  currents  (with  propagation  velocity  ca\n  crspace).  The  fifth  term  represents  depth- 
induced  and  current-induced  refraction  (with  propagation  velocity  ce  in  0  -space).  The 
expressions  for  these  propagation  speeds  are  taken  from  linear  wave  theory  (e.g., 
Whitham,  1974;  Mei,  1983;  and  Dingemans,  1997).  The  term  S  (=  S(g,0))  at  the  right 
hand  side  of  the  action  balance  equation  is  the  source  term  in  terms  of  energy  density 
representing  the  effects  of  generation,  dissipation  and  nonlinear  wave-wave  interactions. 
A  brief  summary  of  the  formulations  that  are  used  for  the  various  source  terms  in  SWAN 
is  given  next. 


In  view  of  the  use  of  SWAN  at  shelf,  sea  or  oceanic  scales  the  user  can  choose  to  express 
the  basic  equation  in  spherical  coordinates: 

with  longitude,  A  and  latitude,  (p . 


5.2.1.2  Wind  Input 

Transfer  of  wind  energy  to  the  waves  is  described  in  SWAN  with  a  resonance  mechanism 
(Phillips,  1957)  and  a  feedback  mechanism  (Miles,  1957).  The  corresponding  source 
term  for  these  mechanisms  is  commonly  described  as  the  sum  of  linear  and  exponential 
growth: 
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Sin{(T,e)=A  +  BE(<J,Q )  (2) 

in  which  A  and  B  depend  on  wave  frequency  and  direction,  and  wind  speed  and  direction. 
The  effects  of  currents  are  accounted  for  in  SWAN  by  using  the  apparent  local  wind 
speed  and  direction.  The  expression  for  term  A  is  due  to  Cavaleri  and  Malanotte-Rizzoli 
(1981)  with  a  filter  to  avoid  growth  at  frequencies  lower  than  the  Pierson-Moskowitz 
frequency  (Tolman,  1992a).  Two  optional  expressions  for  coefficient  B  are  used  in  the 
model.  The  first  is  taken  from  an  early  version  of  the  WAM  model  (known  as  WAM 
Cycle  3,  the  WAMDI  group,  1988).  This  is  due  to  Snyder  et  al.  (1981),  rescaled  in  terms 
of  friction  velocity  U  by  Komen  et  al.  (1984).  The  drag  coefficient  to  relate  U  to  the 
driving  wind  speed  at  10m  elevation  Uw  is  taken  from  Wu  (1982).  The  second  expression 
for  B  is  taken  from  the  most  recent  version  of  the  WAM  model  (known  as  WAM  Cycle  4, 
Komen  et  al.,  1994).  It  is  due  to  Janssen  (1991a)  and  accounts  explicitly  for  the 
interaction  between  the  wind  and  the  waves  by  considering  atmospheric  boundary  layer 
effects  and  the  roughness  length  of  the  sea  surface.  The  corresponding  set  of  equations  is 
solved  (as  in  the  WAM  model)  with  the  iterative  procedure  of  Mastenbroek  et  al.  (1993). 


5.2.1 .3  Dissipation 

The  dissipation  term  of  wave  energy  is  represented  by  the  summation  of  three  different 
contributions:  whitecapping,  Sds,w{cr,  9),  bottom  friction,  Sds,b(<7,  6),  and  depth-induced 
breaking,  Sds,br(<?,  0). 

Whitecapping  is  primarily  controlled  by  the  steepness  of  the  waves.  In  presently 
operating  third-generation  wave  models  (including  SWAN)  the  whitecapping 
formulations  are  based  on  a  pulse-based  model  (Hasselmann,  1974)  as  adapted  by  the 
WAMDI  group  (1988): 


sd,.M,e)  =  -r9lE(a-,e)  (3) 

k 

where  T  is  a  steepness  dependent  coefficient,  k  is  wave  number  and  <r  and  k  denotes  a 
mean  frequency  and  a  mean  wave  number,  respectively  (cf.  the  WAMDI  group,  1988). 
Komen  et  al.  (1984)  estimated  the  value  of  T  by  closing  the  energy  balance  of  the  waves 
in  fully  developed  conditions.  This  implies  that  this  value  depends  on  the  wind-input 
formulation  that  is  used.  Since  two  expressions  are  used  for  the  wind  input  in  SWAN, 
two  values  for  T  are  also  used.  The  first  is  due  to  Komen  et  al.  (1984),  as  in  Cycle  3  of 
the  WAM  model.  It  is  used  in  SWAN  when  the  wind  input  coefficient  B  of  Komen  et  al. 
(1984)  is  used.  The  second  expression  is  an  adaptation  of  this  expression  based  on 
Janssen  (1991a);  as  in  Cycle  4  of  the  WAM  model  (see  Janssen,  1991b  and  Gunther  et 
al.,  1992).  It  is  used  when  the  wind  input  term  B  of  Janssen  (1991a)  is  used.  Young  and 
Banner  (1992)  and  Banner  and  Young  (1994)  have  shown  that  the  results  of  closing  the 
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energy  balance  in  this  manner  depend  critically  on  the  choice  of  a  high-frequency  cut-off 
frequency  above  which  a  diagnostic  spectral  tail  is  used.  In  SWAN,  this  cut-off 
frequency  is  different  from  the  one  used  in  the  WAM  model.  Differences  in  the  growth 
rates  between  the  WAM  model  and  SWAN  are  therefore  to  be  expected. 

Depth-induced  dissipation  may  be  caused  by  bottom  friction,  by  bottom  motion,  by 
percolation  or  by  back  scattering  on  bottom  irregularities  (Shemdin  et  al.,  1978).  For 
continental  shelf  seas  with  sandy  bottoms,  the  dominant  mechanism  appears  to  be  bottom 
friction  (e.g.,  Bertotti  and  Cavaleri,  1994)  which  can  be  represented  as: 

2 

Sds,b  fa e)  =  -Chomm  — 2  £(<?,  0)  (4) 

g  sinh  (kd) 

in  which  Cbouom  is  a  bottom  friction  coefficient.  A  large  number  of  models  have  been 
proposed  since  the  pioneering  paper  of  Putnam  and  Johnson  (1949).  Hasselmann  et  al., 
(1973)  suggested  using  an  empirically  obtained  constant.  It  seems  to  perform  well  in 
many  different  conditions  as  long  as  a  suitable  value  is  chosen  (typically  different  for 
swell  and  wind  sea;  (Bouws  and  Komen,  1983)).  Hasselmann  and  Collins  (1968)  which 
was  later  simplified  by  Collins  (1972)  have  proposed  a  nonlinear  formulation  based  on 
drag.  More  complicated,  eddy  viscosity  models  have  been  developed  by  Madsen  et  al. 
(1988)  and  by  Weber  (1989,  1991a,  1991b).  Considering  the  large  variations  in  bottom 
conditions  in  coastal  areas  (bottom  material,  bottom  roughness  length,  ripple  height  etc.), 
there  is  no  field  data  evidence  to  give  preference  to  a  particular  friction  model  (Luo  and 
Monbaliu,  1994).  For  this  reason,  the  simplest  of  each  of  these  types  of  friction  models 
has  been  implemented  in  SWAN:  the  empirical  JONSWAP  model  of  Hasselmann  et  al. 
(1973),  the  drag  law  model  of  Collins  (1972)  and  the  eddy-viscosity  model  of  Madsen  et 
al.  (1988).  The  effect  of  a  mean  current  on  the  wave  energy  dissipation  due  to  bottom 
friction  is  not  taken  into  account  in  SWAN.  The  reasons  for  this  are  given  by  Tolman 
(1992b)  who  argues  that  state-of-the-art  expressions  vary  too  widely  in  their  effects  to  be 
acceptable.  He  found  that  the  error  in  finding  a  correct  estimate  of  the  bottom  roughness 
length  scale  has  a  much  larger  impact  on  the  energy  dissipation  rate  than  the  effect  of  a 
mean  current. 

The  process  of  depth-induced  wave  breaking  is  still  poorly  understood  and  little  is  known 
about  its  spectral  modeling.  In  contrast  to  this,  the  total  dissipation  (i.e.,  integrated  over 
the  spectrum)  due  to  this  type  of  wave  breaking  can  be  well  modeled  with  the  dissipation 
of  a  bore  applied  to  the  breaking  waves  in  a  random  field  (Battjes  and  Janssen,  1978  and 
Thornton  and  Guza,  1983).  Laboratory  observations  (Battjes  and  Beji,  1992,  Vincent  et 
al.  1994;  Arcilla  et  al.,  1994  and  Eldeberky  and  Battjes,  1996)  show  that  the  shape  of 
initially  uni-modal  spectra  propagating  across  simple  (barred)  beach  profiles,  is  fairly 
insensitive  to  depth-induced  breaking.  This  has  led  Eldeberky  and  Battjes  (1995)  to 
formulate  a  spectral  version  of  the  bore  model  of  Battjes  and  Janssen  (1978)  which 
conserves  the  spectral  shape.  Expanding  their  expression  to  include  directions,  the 
expression  that  is  used  in  SWAN  is: 


20 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


E,o, 


(5) 


in  which  Etot  is  the  total  wave  energy  and  Dtot{ which  is  negative)  is  the  rate  of  dissipation 
of  the  total  energy  due  to  wave  breaking  according  to  Battjes  and  Janssen  (1978).  Adding 
a  quadratic  dependency  on  frequency  as  suggested  by  Mase  and  Kirby  (1992)  supported 
by  Elgar  et  al.  (1997)  seems  to  have  no  noticeable  effect  on  the  SWAN  results.  Chen  and 
Guza  (1997)  inferred  from  observations  and  simulations  with  a  Boussinesq  model  that  the 
high-frequency  levels  are  insensitive  to  such  frequency  dependency  because  an  increased 
dissipation  at  high  frequencies  is  compensated  approximately  by  increased  nonlinear 
energy  transfer  (but  they  did  find  the  frequency  dependency  to  be  relevant  in  time 
domain).  The  value  of  Dto,  depends  critically  on  the  breaking  parameter  y  =  H^dd  (in 
which  Hmax  is  the  maximum  possible  individual  wave  height  in  the  local  water  depth).  In 
SWAN,  a  constant  value  and  a  variable  value  are  available.  The  constant  value  is  y  = 

0.73  (the  mean  value  of  the  data  set  of  Battjes  and  Stive  (1985)). 

SWAN  can  estimate  wave  transmission  through  a  (line-)  structure  such  as  a  breakwater 
(dam).  Such  an  obstacle  will  affect  the  wave  field  in  two  ways,  first  it  will  reduce  the 
wave  height  locally  all  along  its  length,  and  second  it  will  cause  diffraction  (which  the 
model  does  not  account  for)  around  its  end(s).  In  irregular,  short-crested  wave  fields, 
however;  it  seems  that  the  effect  of  diffraction  is  small,  except  in  a  region  less  than  one  or 
two  wavelengths  away  from  the  tip  of  the  obstacle  (Booij  et  al.,  1993).  Therefore  the 
model  can  reasonably  account  for  waves  around  an  obstacle  if  the  directional  spectrum  of 
incoming  waves  is  not  too  narrow.  Since  obstacles  usually  have  a  transversal  area  that  is 
too  small  to  be  resolved  by  the  bottom  grid  in  SWAN,  an  obstacle  is  modeled  as  a  line.  If 
the  crest  of  the  breakwater  is  at  a  level  where  (at  least  part  of  the)  waves  can  pass  over, 
the  transmission  coefficient  Kt  (defined  as  the  ratio  of  the  (significant)  wave  height  at  the 
downwave  side  of  the  dam  over  the  (significant)  wave  height  at  the  upwave  side)  is  a 
function  of  wave  height  and  the  difference  in  crest  level  and  water  level.  The  expression 
is  taken  from  Goda  et  al.  (1967): 

for  -  j3-a<—<  a- J3  (6) 

where  F  =  h-d  is  the  freeboard  of  the  dam  and  where  H,  is  the  incident  (significant)  wave 
height  at  the  upwave  side  of  the  obstacle  (dam),  h  is  the  crest  level  of  the  dam  above  the 
reference  level  same  as  reference  level  of  the  bottom),  d  the  mean  water  level  relative  to 
the  reference  level,  and  the  coefficients  a,  depend  on  the  shape  of  the  dam.  Table  5.2-1 
provides  the  coefficients  for  some  of  the  more  common  cases  encountered. 


f 

7t 

(  F  ^ 

\ 

K,  =  0.5 

1-sin 

2a 

I**  y 

/ 
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Table  5.2-1.  Coefficients  a,  (3  determined  by  the  shape  of  the  dam  (Seelig,  1979). 


Case 

a 

0 

vertical  thin  wall 

1.8 

0.1 

caisson 

2.2 

0.4 

dam  with  slope  1:3/2 

2.6 

0.15 

Equation  6  is  based  on  experiments  in  a  wave  flume,  so  strictly  speaking  it  is  only  valid 
for  normal  incidence  waves.  Since  there  are  no  data  available  on  oblique  waves  it  is 
assumed  that  the  transmission  coefficient  does  not  depend  on  direction.  Another 
phenomenon  that  is  to  be  expected  is  a  change  in  wave  frequency  since  often  the  process 
above  the  dam  is  highly  nonlinear.  Again  there  is  little  information  available,  so  in 
SWAN  it  is  assumed  that  the  frequencies  remain  unchanged  over  an  obstacle  (only  the 
energy  scale  of  the  spectrum  is  affected  and  not  the  spectral  shape). 


5.2. 1.4  Nonlinear  Wave-wave  Interactions 

In  deep  water,  quadruplet  wave-wave  interactions  dominate  the  evolution  of  the 
spectrum.  These  interactions  transfer  wave  energy  from  the  spectral  peak  to  lower 
frequencies  (thus  moving  the  peak  frequency  to  lower  values)  and  to  higher  frequencies 
(where  the  energy  is  dissipated  by  whitecapping).  In  very  shallow  water,  triad  wave-wave 
interactions  transfer  energy  from  lower  to  higher  frequencies  often  resulting  in  higher 
harmonics  (Beji  and  Battjes,  1993);  low-frequency  energy  generation  by  triad  wave- wave 
interactions  is  not  considered  here. 

A  full  computation  of  the  quadruplet  wave-wave  interactions  is  extremely  time 
consuming  and  not  convenient  in  any  operational  wave  model.  A  number  of  techniques, 
based  on  parametric  methods  or  other  types  of  approximations  have  been  proposed  to 
improve  computational  speed  (see  Young  and  Van  Vledder,  1993  for  a  review).  In 
SWAN  the  computations  are  carried  out  with  the  DIA  of  Hasselmann  et  al.  (1985).  This 
DIA  has  been  found  quite  successful  in  describing  the  essential  features  of  a  developing 
wave  spectrum  (Komen  et  al.,  1994).  For  uni-directional  waves,  this  approximation  is 
not  valid.  In  fact,  the  quadruplet  interaction  coefficient  for  these  waves  is  nearly  zero  (G. 
P.  van  Vledder,  personal  communication,  1996).  For  finite-depth  applications, 
Hasselmann  and  Hasselmann  (1981)  have  shown  that  for  a  JONS  WAP-type  spectrum  the 
quadruplet  wave-wave  interactions  can  be  scaled  with  a  simple  expression  (it  is  used  in 
SWAN). 

A  first  attempt  to  describe  triad  wave-wave  interactions  in  terms  of  a  spectral  energy 
source  term  was  made  by  Abreu  et  al.  (1992).  However,  their  expression  is  restricted  to 
non-dispersive  shallow  water  waves  and  is  therefore  not  suitable  in  many  practical 
applications  of  wind  waves.  The  breakthrough  in  the  development  came  with  the  work  of 
Eldeberky  and  Battjes  (1995),  which  transformed  the  amplitude  part  of  the  Boussinesq 
model  of  Madsen  and  Sprensen  (1993)  into  an  energy  density  formulation  and 
parameterized  the  biphase  of  the  waves  on  the  basis  of  laboratory  observations  (Battjes 
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and  Beji,  1992  and  Arcilla  et  ah,  1994).  A  Discrete  Triad  Approximation  (DTA)  for  co- 
linear  waves  was  subsequently  obtained  by  considering  only  the  dominant  self-self 
interactions.  The  Boussinesq  model  has  been  verified  with  flume  observations  of  long- 
crested,  random  waves  breaking  over  a  submerged  bar  (Beji  and  Battjes,  1993)  and  over  a 
barred  beach  (Arcilla  et  al.,  1994).  The  model  appeared  to  be  fairly  successful  in 
describing  the  essential  features  of  the  energy  transfer  from  the  primary  peak  of  the 
spectrum  to  the  super  harmonics.  The  LTA,  a  slightly  different  version  derived  by 
Eldeberky  (1996)  is  used  in  SWAN. 


5.2.2  First-,  Second-  and  Third-generation  Mode 

SWAN  can  operate  in  first-,  second-  and  third-generation  mode.  The  first-  and  second- 
generation  modes  are  essentially  those  of  Holthuijsen  and  De  Boer  (1988)  as  indicated 
above  (first-generation  with  a  constant  Phillips  constant  of  0.0081;  second-generation 
with  a  variable  Phillips  constant).  An  overview  of  the  options  is  given  in  Table  5.2-2. 


Table  5.2-2:  Summary  of  options  available  for  SWAN  operation  modes. 


Option 

Source 

Generation  mode  of 
SWAN 

1  ^  2°^  3rd 

Linear  wind  growth: 

Cavaleri  and  Malanotte-Rizzoli  (1981) 
[modified] 

Cavaleri  and  Malanotte-Rizzoli  (1981) 

X 

X 

X 

Exponential  wind  growth: 

Snyder  et  al.  (1981)  [modified] 

Snyder  et  al.  (1981) 

Janssen  (1989,  1991) 

X 

X 

X1 

X2 

Whitecapping: 

Quadruplet  interaction: 

Holthuijsen  and  De  Boer  (1988) 

Komen  et  al.  (1984) 

Janssen  (1991),  Komen  et  al.  (1994) 
Hasselmann  et  al.  (1985) 

X3 

x4 

X1 

x2 

X 

Triad  interactions: 

Eldeberky  (1996) 

X 

X 

X 

Depth-induced  breaking: 

Battjes  and  Janssen  (1978) 

X 

X 

X 

Bottom  friction: 

Hasselmann  et  al.  (1973) 

X 

X 

X 

Collins  (1972) 

X 

X 

X 

Madsen  et  al.  (1988) 

X 

X 

X 

Obstacle  transmission: 

Seelig  (1979) 

X 

X 

X 

For  SWAN  running  in  a  third  generation  mode,  the  following  combinations  of  the  input 
and  whitecapping  parameterizations  are  used  (indicated  with  1  and  2,  see  command 
GEN3): 


1 .  Gives  the  wind  input  and  whitecapping  formulations  as  used  in  WAM  Cycle  3. 

2.  Gives  the  wind  input  and  whitecapping  formulations  as  used  in  WAM  Cycle  4. 

3.  Pierson-Moskowitz  spectrum  as  an  upper  limit. 
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4.  Scaled  Pierson-Moskowitz  spectrum  as  upper  limit. 

5.2.3  Wave-induced  Set-up 

In  a  (geographic)  1-D  case  the  computation  of  the  wave-induced  set-up  is  based  on  the 
vertically  integrated  momentum  balance  equation  which  reduces  to  a  balance  between  the 
gradient  of  the  wave  radiation  stress  and  the  hydrodynamic  pressure  gradient  (no  wave- 
induced  currents  exist).  In  a  2-D  case  the  computation  of  the  wave-induced  set-up  is 
based  on  the  divergence  of  the  vertically  integrated  momentum  balance  equation  equaling 
zero. 


5.2.4  Detailed  Formulation 

The  complete  expressions  for  the  physical  processes  of  generation,  dissipation  and 
nonlinear  wave-wave  interactions  that  are  available  in  the  SWAN  model  are  given  here. 


5.2.4. 1  Input  by  Wind  (Sj„ ) 


Wave  growth  by  wind  is  described  by: 

Sin{cr,0)=A  +  BE(<T,Q)  (7) 

in  which  A  describes  linear  growth  and  BE  exponential  growth.  It  should  be  noted  that 
the  SWAN  model  is  driven  by  the  wind  speed  at  10m  elevation  Uio  whereas  the 
computations  use  the  friction  velocity  U*.  For  the  WAM  Cycle  3  formulation  the 
transformation  from  UI0  to  U*  is  obtained  with 


u2  =  C  u 2 

u  ^  DU  10  » 

in  which  CD  is  the  drag  coefficient  from  Wu  (1982): 


1.2875x1 0‘3 


for  U]0  <  7.5  m/s 


(0.8  +  0.065  s/m  x  (7]0  )x  10  3  for(/10  >  7.5  m/s 


(8) 


(9) 


For  the  WAM  Cycle  4  formulations,  the  computation  of  U*  is  an  integral  part  of  the 
source  term. 


5.2.4.2  Linear  Growth  by  Wind 

For  the  linear  growth  term  A,  the  expression  due  to  Cavaleri  and  Malanotte-Rizzoli 
(1981)  is  used  with  a  filter  to  eliminate  wave  growth  at  frequencies  lower  than  the 
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Pierson-Moskowitz  frequency  (Tolman,  1992a)  (note  that  in  his  Eq.  10  the  power  of  10 5 
should  be  10'3,  H.  Tolman,  personal  communication,  1995): 


A  =  1,5*"-—  [Ut  max  [0,cos(0  -6^)]  ]4//  , 

g  2k 

(10) 

H  =  exp( -  (<7 /  <j*pm  )~ 4 )  with  aPM  =  2k  , 


in  which  0W  is  the  wind  direction,  H  is  the  filter  and  QPM*  is  the  peak  frequency  of  the 
fully  developed  sea  state  according  to  Pierson  and  Moskowitz  (1964;  reformulated  in 
terms  of  friction  velocity). 


5.2.4.3  Exponential  Growth  by  Wind 

Two  expressions  for  exponential  growth  by  wind  are  optionally  available  in  the  SWAN 
model.  The  first  expression  is  due  to  Komen  et  al.  (1984).  Their  expression  is  a  function 


B  =  max  0,0.25 28— 


-coslO-O^)-!  o  , 


in  which  cph  is  the  phase  speed  and  pa  and  pw  are  the  density  of  air  and  water, 
respectively.  This  expression  is  also  used  in  WAM  Cycle  3  (WAMDI  group,  1988).  The 
second  expression,  which  is  based  on  a  quasi-linear  wind-wave  theory,  is  due  to  Janssen 
(1989,  1991)  and  is  given  by: 

( 11  V 

B  =  /?— - -  max[O,cos(0-0w)]2<r  (12) 

Pw  \Cph  J 

where  p  is  the  Miles  constant.  In  the  theory  of  Janssen  (1991),  this  Miles  constant  is 
estimated  from  the  non-dimensional  critical  height  X: 


A  , 


A<1 

r  =  Kd\Ut  cos (0  — 9W)| 


(13) 
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where  k  is  the  Von  Karman  constant,  equal  to  0.41  and  Ze  is  the  effective  surface 
roughness.  If  the  non-dimensional  critical  height  A  >  1,  the  Miles  constant  is  set  equal 
to  zero.  Janssen  (1991)  assumes  that  the  wind  profile  is  given  by: 


U(z)  =  —  In 

K 


(14) 


in  which  U(z)  is  the  wind  speed  at  height  z  (10m  in  the  SWAN  model)  above  the  mean 
water  level,  z0  is  the  roughness  length.  The  effective  roughness  length  Ze  depends  on  the 
roughness  length  z0  and  the  sea  state  through  the  wave  induced  stress  ^  and  the  total 
surface  stress  t. 


V1 -*■*/*■ 


and 


(15) 


The  second  of  these  two  equations  is  a  Chamock-like  relation  in  which  a  is  a  constant 
equal  to  0.01.  The  wave  stress  rw  vector  is  given  by: 


lw=pJff<rBE(a,e)=; dcrdG  . 


(16) 


The  value  of  U*  can  be  determined  for  a  given  wind  speed  (7,0  and  a  given  wave 
spectrum  E(cr,  0)  from  the  above  set  of  equations.  In  the  SWAN  model  the  iterative 
procedure  of  Mastenbroek  et  al.  (1993)  is  used.  This  set  of  expressions  (Eq.  12  -  16)  is 
also  used  in  WAM  Cycle  4  (Komen  et  al.,  1994). 


5.2.4.4  Dissipation  of  Wave  Energy  (Sds ) 

5.2.4.4.1  Whitecapping 

The  pulse-based  model  of  Hasselmann  (1974)  represents  the  processes  of  whitecapping  in 
the  SWAN  model.  Reformulated  in  terms  of  wave  number  (rather  than  frequency)  so  as 
to  be  applicable  in  finite  water  depth  (cf.  WAMDI  group,  1988),  this  expression  is: 

,  (17) 

k 

where  a  and  k  denote  the  mean  frequency  and  the  mean  wave  number  (for  expressions 
see  below)  respectively,  and  the  coefficient  T  depends  on  the  overall  wave  steepness. 

This  steepness  dependent  coefficient,  as  given  by  the  WAMDI  group  (1988),  has  been 
adapted  by  Gunther  et  al.  (1992)  based  on  Janssen  (1991a,  1991b): 
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r  =  r, 


KJ 


c 


f(l-5)+4l 

(  ~  \ 
S 

v  k  J 

\sm  J 

(18) 


For  8  =  0  the  expression  of  T  reduces  to  the  expression  as  used  by  the  WAMDI  group 
(1988).  The  coefficients  C</„  8  and  m  are  tunable  coefficients,  s  is  the  overall  wave 
steepness  (defined  below),  sPM  is  the  value  of  s  for  the  Pierson-Moskowitz  spectrum 
(1964;  sPM  =  (3.02  x  10'3  f7 ).  This  overall  wave  steepness  s  is  defined  as: 

•  <I9> 


The  mean  frequency  o ,  the  mean  wave  number  k  ,  and  the  total  wave  energy  Etot  are 
defined  as  (cf.  WAMDI  group,  1988): 


a  - 


k  = 


f  \  ^ 

E;o]  \\-E{a,B)dad% 


V  oo 

f 

V 


J 


o  o  V  A: 


V2 

i 

J 


(20) 


2^00 

Etot  =  jj£(cr,  0)drrd0  .  (21) 

o  o 

The  values  of  the  tunable  coefficients  C<ts  and  8  and  exponent  p  in  this  model  have  been 
obtained  by  Komen  et  al.,  (1984)  and  Janssen  (1992)  by  closing  the  energy  balance  of  the 
waves  in  idealized  wave  growth  conditions  (both  for  growing  and  fully  developed  wind 
seas)  for  deep  water.  This  implies  that  coefficients  in  the  steepness  dependent  coefficient 
T  depend  on  the  wind-input  formulation  that  is  used.  Since  two  different  wind  input 
formulations  are  used  in  the  SWAN  model,  two  sets  of  coefficients  are  used.  For  the 
wind  input  of  Komen  et  al.  (1984;  corresponding  to  WAM  Cycle  3;  the  WAMDI  group, 
1988):  Cds  =  2.36xlO'5 ,8=0  and p  =  4.  Janssen  (1992)  and  Gunther  (1992)  obtained 
(assuming  p  =  4)  C*  =  4.10xl0‘5  and  8  =  0.5  (as  used  in  the  WAM  Cycle  4;  Komen  et 
al.,  1994). 

5.2.4A.2  Bottom  Friction 

The  bottom  friction  models  that  have  been  selected  for  SWAN  are  the  empirical  model  of 
JONSWAP  (Hasselmann  et  al.,  1973),  the  drag  law  model  of  Collins  (1972)  and  the 
eddy-viscosity  model  of  Madsen  et  al.  (1988).  The  formulations  for  these  bottom  friction 
models  can  all  be  expressed  in  the  following  form: 
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S<bj>  (<r»  °)  =  ~C bottom  ~  2  .  .  2„  g(^0)  ,  (2: 

g  sinh  (kd)  v 

in  which  Cbottom  is  a  bottom  friction  coefficient  that  generally  depends  on  the  bottom 
orbital  motion  represented  by  Unns: 


l7t°*  ST2 

=  ff - r - E«j,Q)dadQ  . 


o  o  sinh  (kd) 


Hasselmann  et  al.  (1973)  found  from  the  results  of  the  JONSWAP  experiment 
Cbottom  =  Cjon  =  0.038  m2s 3  for  swell  conditions.  Bouws  and  Komen  (1983)  selected  a 
bottom  friction  coefficient  of  Cjon  =  0.067  m2s 3  for  fully  developed  wave  conditions  in 
shallow  water.  Both  values  are  available  in  SWAN. 

The  expression  of  Collins  (1972)  is  based  on  a  conventional  formulation  for  periodic 
waves  with  the  appropriate  parameters  adapted  to  suit  a  random  wave  field.  The 
dissipation  rate  is  calculated  with  the  conventional  bottom  friction  formulation  of  Eq.  7  in 
which  the  bottom  friction  coefficient  is  Cbot,om  =  CjgUrms  with  C/=  0.015  (Collins,  1972). 
(Note  that  Collins  (1972)  contains  an  error  in  the  expression  due  to  an  erroneous 
Jacobean  transformation;  see  page  A-16  of  Tolman,  1990). 

Madsen  et  al.  (1988)  derived  a  formulation  similar  to  that  of  Hasselmann  and  Collins 
(1968),  but  in  their  model  the  bottom  friction  factor  is  a  function  of  the  bottom  roughness 
height  and  the  actual  wave  conditions.  Their  bottom  friction  coefficient  is  given  by: 

Cbottom  ~  fw  C  mu  »  (24) 

in  which  fw  is  a  non-dimensional  friction  factor  estimated  by  using  the  formulation  of 
Jonsson  (1966;  cf.  Madsen  et  al.,  1988): 


vr+los'°wr  =ra'+log'°h! 


in  which  m f —  0.08  (Jonsson  and  Carlsen,  1976)  and  a*  is  a  representative  near-bottom 
excursion  amplitude: 


j 

al=2\\—  ~  7— -£(<T,e)d<7d9  , 

o  o  sinh  (faf) 
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and  Kn  is  the  bottom  roughness  length  scale.  For  values  of  ab  /  KN  smaller  than  1.57  the 
friction  factor  fw  is  0.30  (Jonsson,  1980). 


5. 2. 4.4.3  Depth-induced  Wave  Breaking 


To  model  the  energy  dissipation  in  random  waves  due  to  depth-induced  breaking,  the 
bore-based  model  of  Battjes  and  Janssen  (1978)  is  used  in  SWAN.  The  mean  rate  of 
energy  dissipation  per  unit  horizontal  area  due  to  wave  breaking  Dto,  is  expressed  as: 


D,ot  ~  ^aBjQb 


o  ^ 
In 


h : 


(27) 


in  which  aBj  =  1  in  SWAN,  Qb  is  the  fraction  of  breaking  waves  determined  by: 


1  sEjql  (28) 

In  Qb  Hi  ' 


in  which  Hm  is  the  maximum  wave  height  that  can  exist  at  the  given  depth  and  <j  is  a 
mean  frequency  defined  as: 


2^oo 

a  =  E~]t  |  E(cr,  0)d<7 d0  .  (29) 

0  0 

Extending  the  expression  of  Eldeberky  and  Battjes  (1995)  to  include  the  spectral 
directions,  the  dissipation  for  a  spectral  component  per  unit  time  is  calculated  in  SWAN 
with: 


Sds,br  — 


£(<7,0) 


(30) 


The  maximum  wave  height,  Hm,  is  determined  in  SWAN  with  Hm  =  yd,  in  which  y  is  the 
breaker  parameter  and  d  is  the  total  water  depth  (including  the  wave-induced  set-up  if 
computed  by  SWAN).  In  the  literature,  this  breaker  parameter  y  is  often  a  constant  or  it  is 
expressed  as  a  function  of  bottom  slope  or  incident  wave  steepness  (see  e.g.,  Galvin, 

1972;  Battjes  and  Janssen,  1978;  Battjes  and  Stive,  1985;  Arcilla  and  Lemos,  1990; 
Kaminsky  and  Kraus,  1993;  and  Nelson,  1987, 1994).  Since  SWAN  is  locally  defined, 
the  dependency  on  incident  wave  steepness  cannot  be  used.  Instead,  the  other  two  options 
(constant  value  or  bottom-slope  dependent)  were  used  in  SWAN  Version  40.01  and  older 
to  determine  the  value  of  the  breaker  parameter.  In  SWAN  HI  Version  40.1 1  the  option 
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of  Nelson  has  been  removed  as  the  results  of  SWAN  were  better  with  the  option  of  a 
constant  value. 

In  the  publication  of  Battjes  and  Janssen  (1978)  in  which  the  dissipation  model  is 
described,  a  constant  breaker  parameter  of  y=  0.8  was  used  based  on  Miche’s  criterion. 
Battjes  and  Stive  (1985)  re-analyzed  wave  data  of  a  number  of  laboratory  and  field 
experiments  and  found  values  for  the  breaker  parameter  varying  between  0.6  and  0.83  for 
different  types  of  bathymetry  (plane,  bar-trough  and  bar)  with  an  average  of  0.73.  From  a 
compilation  of  a  large  number  of  experiments  Kaminsky  and  Kraus  (1993)  have  found 
breaker  parameters  in  the  range  of  0.6  to  1 .59  with  an  average  of  0.79. 

5.2.4.5  Nonlinear  Wave-wave  Interactions  (S„i ) 

5.2.4.5.1  Quadruplet  Wave-wave  Interactions 

The  quadruplet  wave-wave  interactions  are  computed  with  the  DIA  as  proposed  by 
Hasselmann  et  al.  (1985).  Their  source  code  (slightly  adapted  by  Tolman,  personal 
communication,  1993)  has  been  used  in  the  SWAN  model.  In  the  DIA  two  quadruplets 
of  wave  numbers  are  considered,  both  with  frequencies: 

cr,  =  <7  2  =  a 

a3=a(l  +  A)  =  cT+  ,  (31) 

cr4  =a(l-A  )-g~ 

where  A,  is  a  constant  coefficient  set  equal  to  0.25.  To  satisfy  the  resonance  conditions  for 
the  first  quadruplet,  the  wave  number  vectors  with  frequency  <?}  and  04  lie  at  an  angle  of 
0]  =  - 1 1.5°  and  02  =  33.6°  to  the  two  identical  wave  number  vectors  with  frequencies  0\ 
and  02  ■  The  second  quadruplet  is  the  mirror  of  this  first  quadruplet  (the  wave  number 
vectors  with  frequency  03  and  tr4  lie  at  mirror  angles  of  03  =  1 1 .5°  and  04  =  -  33.6° ). 

Within  this  discrete  interaction  approximation,  the  source  term  Snl4  (<rr  0  )  is  given  by: 

Snl4  (<*,  0)  =  S„’,4  (<7.  0)  +  S'„I4  (0\  ©)  ,  (32) 

where  S’/4  refers  to  the  first  quadruplet  and  S*/4  to  the  second  quadruplet  (the 
expressions  for  Snl4  are  identical  to  those  for  S‘l4  for  the  mirror  directions)  and: 

S*ni4  (<7, 0)  =  2  £ Sn/4  (a, <7, 0)  -  £ Snl4  (a2cr, 0)  -  £  Snl4  (a3<j, 0)  ,  (33) 

in  which  «j  =  1,  ai  =  (1  +  A.)  and  or3  =  (1  -  A,).  Each  of  the  contributions  (i  =  1,  2,  3)  is: 
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2-4 


dSnlA  (ar(cr,0)  =  Cnl4  (2n)  g 


f  a  ' 


V2^ry 


-2 


E2(a,a,Q) 


(  E{afa*  ,0)  Eia^  ,0)^ 


(i +w 


(i -ay 


j 


£,(fl'icr,0)£’(a(<T+,0)£'(«I<T  ,0) 


2  \4 


(34) 


The  constant  Cni4  =  3xl07  .  Following  Hasselmann  and  Hasselmann  (1981),  the 
quadruplet  interaction  in  finite  water  depth  is  taken  identical  to  the  quadruplet  transfer  in 
deep  water  multiplied  with  a  scaling  factor  R : 

^  nl  4,  finitedepth  =  R(k„d)S„A 

jnfinitedepth  5  (35) 

where  R  is  given  by: 

R(kpd)  =  l  +  j^(l-CM  krd)cxP(cM-kpd)  ,  (36) 

in  which  kp  is  the  peak  wave  number  of  the  JONSWAP  spectrum  for  which  the  original 
computations  were  carried  out.  The  values  of  the  coefficients  are:  Cshi  =  5.5,  Csh2  =  6/7 
and  Csh3  =  -  1.25.  In  the  shallow  water  limit,  i.e.,  kpd  —>  0  the  nonlinear  transfer  tends  to 
infinity.  Therefore  a  lower  limit  of  kpd  =  0.5  is  applied  (cf.  WAM  Cycle  4;  Komen  et  al., 
1994),  resulting  in  a  maximum  value  of  R(kpd )  =  4.43.  To  increase  the  model  robustness 

in  case  of  arbitrarily  shaped  spectra,  the  peak  wave  number  kp  is  replaced  by  kp  =  0.75 k 
(Komen  et  al.,  1994). 


5.2.4.S.2  Triad  Wave-wave  Interactions 

The  LTA  of  Eldeberky  (1996),  which  is  a  slightly  adapted  version  of  the  Discrete  Triad 
Approximation  (DTA)  of  Eldeberky  and  Battjes  (1995),  is  used  in  SWAN  in  each 
spectral  direction: 

^/3(°'>0)  =  5n‘/3(cr’0)  +  ^3(o'>0)  >  (37) 

with 

S+ 3 ((7, 0)  =  max  {o, aEB 2necgJ2\  sin(^)| [e 2  (a / 2, 0)  -  2 E{a / 2, 0) £(<r, 0) }}  , 

(38) 


and 
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S-nl3(<T,Q)  =  -2S;n(2cT,Q)  ,  (39) 

in  which  aEB  is  a  tunable  proportionality  coefficient.  The  biphase  (3  is  approximated 
with 


P  =  ~ 


—  +  —  tanh 
2  2 


r  0.2^1 
<Ur) 


with  ursell  number  Ur 


Ur  = 


8 

S-Jln2 


HST 2 
d 2 


(40) 


(41) 


where  T  =  Into .  The  triad  wave-wave  interactions  are  calculated  only  for  10  >  Ur  > 
0.1.  The  interaction  coefficient  J  is  taken  from  Madsen  and  S0rensen  (1993): 


kll2(gd  +  2cl,2) 


kad(gd  +  ^gd2kl 


(42) 


5.2.4.5.3  Wave-induced  Set-up 


In  a  (geographic)  1  -D  case  the  computation  of  the  wave  induced  set-up  is  based  on  the 
vertically  integrated  momentum  balance  equation  which  is  a  balance  between  the  wave 
force  (gradient  of  the  wave  radiation  stress  normal  to  the  coast)  and  the  hydrodynamic 
pressure  gradient  (note  that  the  component  parallel  to  the  coast  causes  wave-induced 
currents  but  no  setup). 


Fx+gd 


dji 

dx 


=  0 


(43) 


where  d  is  the  total  water  depth  (including  the  wave-induced  set-up)  and  77  is  the  mean 
surface  elevation  (including  the  wave-induced  set-up). 

Observation  and  computations  based  on  the  vertically  integrated  momentum  balance 
equation  of  Dingemans  et  al.  (1987)  show  that  the  wave-induced  currents  are  mainly 
driven  by  the  divergence-free  part  of  the  wave  forces,  whereas  the  set-up  is  mainly  due  to 
the  rotation-free  part  of  these  forces.  To  compute  the  set-up,  it  would  then  be  sufficient 
to  consider  the  divergence  of  the  momentum  balance  equation.  If  the  divergence  of  the 
acceleration  in  the  resulting  equation  is  ignored,  the  result  is: 
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— -  +  — - 
dx  ay 


+  — 
dxy 


gdYx 


A+— 

)  dy 
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8d~ 

dy 


=  0  . 


(44) 


5.2.5  Numerical  Implementation 

The  integration  of  the  action  balance  equation  has  been  implemented  in  SWAN  with 
finite  difference  schemes  in  all  five  dimensions,  including  time,  geographic  space  and 
spectral  space,  etc.  These  are  first  described  for  the  propagation  of  the  waves  without  the 
source  terms  for  generation,  dissipation  and  wave-wave  interactions.  Then  the 
implementation  of  these  source  terms  is  described. 

Time  is  discretized  with  a  simple  constant  timestep.  At,  for  the  simultaneous  integration 
of  the  propagation  and  the  source  terms.  This  is  different  from  how  time  was  discretized 
in  the  WAM  model  or  the  WAVEWATCH  III  model  where  the  timestep  for  propagation 
is  different  from  the  timestep  for  the  source  terms.  Geographic  space  is  discretized  with  a 
rectangular  grid  with  constant  resolutions  Ax  and  Ay  in  x-  and  y-direction  respectively  (in 
fact,  this  rectangular  grid  is  a  special  case  of  the  curvilinear  grid  that  has  been 
programmed  in  SWAN).  The  spectrum  in  the  model  is  discretized  with  a  constant 
directional  resolution  A0  and  a  constant  relative  frequency  resolution  A<r/<7(logarithmic 
frequency  distribution).  For  reasons  of  economy,  an  option  is  available  to  compute  only 
wave  components  traveling  in  a  pre-defined  directional  sector  (0min  <  0  <  0max;  e.g.,  those 
components  that  travel  shoreward  within  a  limited  directional  sector).  The  discrete 
frequencies  are  defined  between  a  fixed  low-frequency  cut-off  and  a  fixed  high-frequency 
cut-off  (the  prognostic  part  of  the  spectrum).  For  these  frequencies  the  spectral  density  is 
unconstrained.  Below  the  low-frequency  cut-off  (typically  fmj„  =  0.04  Hz  for  field 
conditions)  the  spectral  densities  are  assumed  to  be  zero.  Above  the  high-frequency  cut¬ 
off  (typically  1  Hz  for  field  conditions)  a  diagnostic  tail/'”1  is  added  (this  tail  is  used  to 
compute  nonlinear  wave-wave  interactions  at  the  high  frequencies  and  to  compute 
integral  wave  parameters).  The  reason  for  using  a  fixed  high-frequency  cut-off  rather 
than  a  dynamic  cut-off  frequency  that  depends  on  the  wind  speed  or  on  the  mean 
frequency,  as  in  WAM  and  WAVEWATCH  El,  is  that  in  coastal  regions  mixed  sea  states 
with  rather  different  characteristic  frequencies  may  occur.  For  instance,  a  local  wind  may 
generate  a  very  young  sea  behind  an  island,  totally  unrelated  to  (but  superimposed  on)  a 
simultaneously  occurring  swell.  In  such  cases  a  dynamic  cut-off  frequency  may  be  too 
low  to  properly  account  for  the  locally  generated  sea  state.  Based  on  physical  arguments 
the  value  of  m  (the  power  in  the  above  expression  of  the  spectral  tail)  should  be  between 
four  and  five  (e.g.,  Phillips,  1985).  In  SWAN,  m  =  4  if  the  wind  input  formulation  of 
Komen  et  al.  (1984)  is  used  (cf.  WAM  Cycle  3),  and  m  =  5  if  the  wind  input  formulation 
of  Janssen  (1991a)  is  used  (WAM  Cycle  4). 
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5.2.5.1  Propagation 

The  numerical  schemes  in  SWAN  have  been  chosen  on  the  basis  of  robustness,  accuracy 
and  economy.  Since  the  nature  of  the  basic  equation  is  such  that  the  state  in  a  grid  point 
is  determined  by  the  state  in  the  upwave  grid  points,  the  most  robust  scheme  would  be  an 
implicit  upwind  scheme  (in  both  geographic  and  spectral  space).  The  adjective  "implicit" 
is  used  here  to  indicate  that  all  derivatives  of  action  density  (in  t,  x  or  y)  are  formulated  at 
one  computational  level  (/,,  ix  or  iy)  except  the  derivative  in  the  integration  dimension  for 
which  also  the  previous  or  upwave  level  is  used  (time  in  non-stationary  mode  and  x  or  y 
in  stationary  mode).  For  such  a  scheme  the  values  of  the  time  and  space  steps  At,  Ax,  and 
Ay  would  be  mutually  independent.  An  implicit  scheme  would  also  be  economical  in  the 
sense  that  such  a  scheme  is  unconditionally  stable.  It  permits  relatively  large  timesteps  in 
the  computations  (much  larger  than  for  explicit  schemes  in  shallow  water).  Several  years 
of  experience  in  using  the  second-generation  HISWA  shallow  water  wave  model 
(Holthuijsen  et  al.,  1989)  has  shown  that  for  coastal  regions  a  first-order  upwind 
difference  scheme  in  geographic  space  is  usually  accurate  enough.  This  experience, 
together  with  test  computations  with  SWAN  has  also  shown  that  in  spectral  space  a 
higher  accuracy  than  that  of  a  first-order  upwind  scheme  is  required.  This  can  be 
achieved  by  supplementing  such  a  scheme  with  a  second-order  central  approximation 
(more  economic  than  a  second-order  upwind  scheme).  For  SWAN  therefore,  implicit 
upwind  schemes  in  both  geographic  and  spectral  space  have  been  chosen,  supplemented 
with  a  central  approximation  in  spectral  space. 

The  fact  that  in  geographic  space,  the  state  in  a  grid  point  is  determined  by  the  state  in  the 
upwave  grid  points  (as  defined  by  the  direction  of  propagation),  permits  a  decomposition 
of  the  spectral  space  into  four  quadrants  (eight  octants  would  be  an  alternative).  In  each  of 
the  quadrants  the  computations  can  be  carried  out  independently  from  the  other  quadrants 
except  for  the  interactions  between  them  due  to  refraction  and  nonlinear  wave-wave 
interactions  (formulated  in  corresponding  boundary  conditions  between  the  quadrants). 
The  wave  components  in  SWAN  are  correspondingly  propagated  in  geographic  space 
with  an  upwind  scheme  (upwind  is  the  common  term  in  numerical  analysis,  but  up-wave 
would  be  more  appropriate  in  the  case  of  SWAN).  SWAN  contains  three  such  schemes: 

a.  First-order  (stationary  and  non-stationary  cases)  backward  space-backward 
time  (BSBT)  scheme, 

b.  Second-order  (non-stationary  cases)  with  third-order  diffusion:  the  S&L 
scheme  (Stelling  and  Leedertse,  1992), 

c.  Second-order  (stationary  cases)  with  second-order  diffusion  (SORDUP) 
scheme. 

The  BSBT  scheme  (not  default  in  SWAN)  will  be  discussed  first  and  then  the  extension 
to  the  higher  order  schemes  that  are  default  in  SWAN.  The  first-order  upwind  scheme 
(BSBT)  is  a  sequence  of  four  forward-marching  sweeps  (one  per  quadrant).  To  properly 
account  for  the  boundary  conditions  between  the  four  quadrants,  the  computations  are 
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carried  out  iteratively  at  each  timestep.  The  integration  in  time  is  a  simple  backward 
finite  difference,  so  that  the  discretization  of  the  action  balance  equation  is  (for  positive 
propagation  speeds;  including  the  computation  of  the  source  terms  but  ignoring  their 
discretization): 


Ni"l,-Ni,~ 1 

+ 

[cxV]  -  [cx/V] 

‘x  lx~] 

inn 

i 

"  [cvN]  -  [CjW] 

iy  iy~i 

At 

Ax 

*+■ 

Ay 

- 

- 

iy  y  4r  > 

- 

+ 


-|  (,,/! 


(l-KX^An  +  2v[caN]  -  (l+^)[caW] 

L+\  L  Cr~l 


2Aa 


+ 


(1  -T])lceN]  +  2t}[c$N]  ~  (1+77)[c91V] 

_ je+1 _ *e _ 'p-l 

2A0 


_S_ 

a 


(45) 

where  it  is  the  time-level  index  and  ix,  iy,  i0  and  ie  are  grid  counters  and  At,  Ax,  Ay,  A <7, 
and  A0  are  the  increments  in  time,  geographic  space  and  spectral  space  respectively.  The 
iterative  nature  of  the  computation  is  indicated  with  the  iteration  index  n  (the  iteration 
index  for  the  source  terms  n*  is  equal  to  n  or  n- 1,  depending  on  the  source  term,  see 
below).  Because  of  these  iterations,  the  scheme  is  also  approximately  implicit  for  the 
source  terms.  For  negative  propagation  speeds,  appropriate  +  and  -  signs  are  required  in 
Eq.  45. 

The  coefficients  vand  ^determine  the  degree  to  which  the  scheme  in  spectral  space  is 
upwind  or  central.  They  control  the  numerical  diffusion  in  frequency  and  directional 
space,  respectively.  A  value  of  v=  0  or  7]  =  0  corresponds  to  central  schemes  which  have 
the  largest  accuracy  (numerical  diffusion  ~  0).  Value  of  v=  1  or  1)  =  1  correspond  to 
upwind  schemes  which  are  somewhat  more  diffusive  and  therefore  less  accurate  but  more 
robust.  If  large  gradients  of  the  action  density  in  frequency  space  or  directional  space  are 
present,  numerical  oscillations  can  arise  (especially  with  the  central  difference  schemes) 
resulting  in  negative  values  of  the  action  density.  In  each  sweep  such  negative  values  are 
removed  from  the  two-dimensional  spectrum  by  setting  these  values  equal  to  zero  and 
rescaling  the  remaining  positive  values  such  that  the  frequency-integrated  action  density 
per  spectral  direction  is  conserved.  The  depth  derivatives  and  current  derivatives  in  the 
expressions  of  c^and  cq  are  calculated  with  a  first-order  upwind  scheme.  For  very  strong 
refraction  the  value  of  ce  is  reduced  in  each  grid  point  and  for  each  wave  component 
individually  with  the  square  of  the  fraction  of  the  grid  spacing  over  which  kd  <  3.0. 

For  stationary  conditions  SWAN  can  be  run  in  stationary  mode.  Time  is  then  removed  as 
a  variable  but  the  integration  (in  geographic  space)  is  still  carried  out  iteratively.  The 
propagation  scheme  is  still  implicit  as  the  derivatives  of  action  density  (in  x  or  y)  at  the 
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computational  level  (ix  or  iy,  respectively)  are  formulated  at  that  level  except  in  the 
integration  dimension  (x  or  y;  depending  on  the  direction  of  propagation)  where  the 
upwave  level  is  used.  The  values  of  Ax  and  Ay  are  therefore  still  mutually  independent. 

For  the  stationary  second-order  upwind  scheme  (Rogers  et  al.,  2000;  SORDUP)  which  is 
the  default  scheme  for  stationary  computations,  the  two  terms  in  Eq.  45  representing  x- 
and  y-derivatives  are  replaced  by: 


For  the  non-stationary  second-order  upwind  scheme  (Rogers  et  al.,  2000;  S&L),  which  is 
the  default  scheme  for  non-stationary  computations,  the  two  terms  in  Eq.  45  representing 
x-  and  y-derivatives  are  replaced  by: 


To  explain  the  above  numerical  solution  technique  in  terms  of  matrix  solutions,  first 
ignore  the  decomposition  in  quadrants.  The  propagation  of  the  waves  in  both  geographic 
and  spectral  space  would  then  be  described  with  one  large  basic  matrix  that  can  be  solved 
in  several  ways.  Removing  refraction,  frequency  shifting  and  nonlinear  source  terms 
from  this  basic  matrix  permits  a  matrix  solution  with  a  Gauss-Seidel  technique  (e.g.. 
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Golub  and  van  Loan,  1986)  in  which  the  matrix  is  decomposed  in  four  sections  (the 
above  four  directional  quadrants)  which  are  each  solved  in  one  step  (super-convergence). 
Restoring  refraction  and  frequency  shifting  to  the  matrix  requires  the  solution  of  a 
submatrix  for  each  geographic  grid  point.  If  no  currents  are  present  and  the  depth  is 
stationary,  this  is  readily  done  with  a  Thomas  algorithm  (e.g.,  Abbott  and  Basco,  1989; 

Cff  =  0  and  the  sub-matrix  is  a  simple  tri-diagonal  matrix).  If  currents  are  present  or  the 
depth  is  not  stationary,  the  sub-matrix  is  a  band  matrix.  It  is  solved  with  an  iterative  ILU- 
CGSTAB  method  (Vuik,  1993;  Van  der  Vorst,  1992).  Restoring  refraction  and 
frequency-shifting  also  introduces  coefficients  in  each  matrix  section  (directional 
quadrant)  that  cause  dependency  between  the  matrix  sections.  The  same  happens  when 
nonlinear  source  terms  are  added  to  the  matrix.  The  basic  matrix  as  a  whole  therefore 
needs  to  be  solved  iteratively  until  some  break-off  criteria  are  met.  To  reduce  the  number 
of  iterations  in  stationary  mode  with  wind  generation,  SWAN  starts  with  a  reasonable 
first-guess  of  the  wave  field  (a  "quickstart"  based  on  the  second-generation  source  terms 
of  Holthuijsen  and  De  Boer,  (1988)  adapted  for  shallow  water).  It  reduces  the  number  of 
iterations  typically  by  a  factor  two.  In  non-stationary  mode,  a  very  reasonable  first-guess 
per  timestep  is  available  from  the  previous  timestep  and  the  number  of  iterations  is 
expected  to  be  small.  If  no  iterations  are  used  in  non-stationary  mode  (as  in  most  phase 
averaged  wave  models),  the  computations  of  propagation  are  still  implicit  and  therefore 
still  unconditionally  stable. 

In  the  neighborhood  of  grid  points  which  represent  open  boundaries,  land  boundaries  and 
obstacles  (i.e.,  the  last  two  grids  adjoining  such  grid  points  for  the  SORDUP  scheme  and 
the  last  three  grids  adjoining  such  grid  points  for  the  S&L  scheme),  SWAN  will  revert  to 
the  first-order  BSBT  scheme.  This  scheme  has  a  larger  numerical  diffusion  but  that  is 
usually  acceptable  over  the  small  distances  involved. 

The  numerical  diffusion  of  the  S&L  scheme  is  so  small  that  the  so-called  garden-sprinkler 
effect  (GSE)  may  show  up  if  propagation  over  very  large  distances  is  considered.  This 
effect  is  due  to  the  spectral  resolution  (Booij  and  Holthuijsen,  1987).  It  can  be 
counteracted  by  a  diffusion  term  that  has  been  explicitly  added  to  the  numerical  scheme 
(not  default  in  SWAN).  Its  value  depends  on  the  spectral  resolution  and  the  propagation 
time  of  the  waves  (see  the  input  variable  [wave  age]  in  the  SCHEME  command). 

The  diffusion  applied  in  the  propagation  direction  is: 

Dss  =  Ac2T  / 12  ,  (46) 

where  T  is  the  wave  age. 

The  diffusion  normal  to  the  propagation  direction  is: 

Dss  =  c2AQ2T  / 12  .  (47) 

From  these  diffusion  coefficients  (in  terms  of  x  and  y)  are  calculated: 
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Dxx  =  Dss cos20  +  D„„sin20; 

Dyy  =  Dss  sin20  +D„ncos20;  (48) 

Djcy  =  (Dss  -  £>„„)  cos0sin0  . 

The  diffusion  terms  are  computed  at  the  time  level  i,  - 1.  The  diffusion  terms  are 
computed  as  follows: 


This  explicit  finite  differentiation  is  fast  (having  little  impact  on  computation  time)  but 
only  conditionally  stable.  Through  mathematical  analysis  (not  shown)  it  can  be  shown 
that  a  likely  stability  condition  for  the  one-dimensional  S&L  scheme  with  this  GSE 
correction  is  DAt/(Ax2)  <  0.5  which  corresponds  to  the  two-dimensional  stability  criterion 
of  Tolman  (1995);  (based  on  Fletcher,  1 988): 


nm(D„C„,C,)  A; 
min(AxAy)2 


Thus  it  is  credible  that  Eq.  50  holds  true  for  the  two-dimensional  S&L  scheme  with  this 
GSE  correction.  In  experiments,  it  was  found  that  for  all  experiments  which  satisfy  the 
slightly  more  restrictive  Q  <  0.48  instability  was  observed.  In  short,  by  adding  the  GSE 
correction,  the  unconditionally  stable  advection  scheme  of  SWAN  becomes  a  (likely) 
conditionally  stable  advection  diffusion  scheme.  It  is  readily  shown  that  for  typical  ocean 
applications  Dnn  dominates  the  diffusion  and  can  be  written  as: 

Q  =  CT  /  Ax.CAt  /  Ax.A02  / 1 2  .  r5n 


The  variable  wave  age  T  could  be  computed  during  the  computations  of  SWAN  (Booij 
and  Holthuijsen,  1987)  but  it  requires  the  same  order  of  magnitude  of  computer  memory 
as  integrating  the  action  balance  equation.  Instead  a  constant  wave  age  T  can  be  used  as 
an  approximation,  so  that  Eq.  51  becomes 


Q  =  L/Ax.fi.A%!\2 


(52) 
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where  the  characteristic  travel  distance  of  the  waves  is  L=CT  (e.g.,  the  dimension  of  the 
ocean  basin).  For  oceanic  applications  the  Courant  number  is  typically  //  =  Vi  so  that  Q  < 
0.25  for  typical  values  of  A0  and  L  /Ax  (the  number  of  grid  point  in  one  direction  of  the 
grid).  This  implies  that  the  S&L  scheme  with  this  GSE  correction  is  stable  for  typical 
ocean  cases.  For  shelf  sea  (regional)  applications  the  value  of  //=  0(1)  but  the  garden- 
sprinkler  effect  tends  to  be  small  on  these  scales  and  the  diffusion  can  and  should  not  be 
used  to  avoid  the  stability  problem.  For  small-scale  (local)  applications  typically  ju  = 
0(10-100).  But  such  cases  are  usually  treated  as  stationary  and  the  SORDUP  scheme 
should  be  used  (no  GSE  correction  is  included  in  this  scheme). 

The  boundary  conditions  in  SWAN,  both  in  geographic  space  and  spectral  space  are  fully 
absorbing  for  wave  energy  that  is  leaving  the  computational  domain  or  crossing  a 
coastline.  The  incoming  wave  energy  along  open  geographic  boundaries  needs  to  be 
prescribed  by  the  user.  For  coastal  regions  such  incoming  energy  is  usually  provided  only 
along  the  deep-water  boundary  and  not  along  the  lateral  geographic  boundaries  (i.e.,  the 
spectral  densities  are  assumed  to  be  zero).  This  implies  that  such  erroneous  lateral 
boundary  conditions  are  propagated  into  the  computational  area.  The  affected  areas  are 
typically  triangular  regions  with  the  apex  at  the  comers,  between  the  deep-water  and 
lateral  boundaries,  spreading  towards  shore  at  an  angle  of  30°  to  45°  (for  wind  sea 
conditions)  on  either  side  of  the  deep-water  mean  wave  direction  (less  for  swell 
conditions;  this  angle  is  essentially  equal  to  the  one-sided  width  of  the  directional 
distribution  of  the  incoming  wave  spectrum).  For  this  reason  the  lateral  boundaries 
should  be  sufficiently  far  away  from  the  area  of  interest  to  avoid  the  propagation  of  this 
error  into  the  area. 


5.2. 5. 1.1  Generation,  Wave-wave  Interactions  and  Dissipation 

The  numerical  estimations  of  the  source  terms  in  SWAN  are  essentially  implicit.  This  is 
achieved  with  explicit  or  implicit  approximations  of  the  source  terms  which  in  the  limit 
of  a  large  number  of  iterations,  always  result  in  an  implicit  estimation.  In  actual 
computations  final  convergence  is  obviously  never  achieved  and  the  estimations  of  the 
source  terms  are  therefore  strictly  speaking  only  approximately  implicit.  In  the  following, 
"explicit"  and  "implicit"  refer  to  the  approximations  of  the  source  terms  within  each 
iteration. 

The  linear  growth  term  A  is  independent  of  integral  wave  parameters  and  of  the  energy 
density  and  can  therefore  be  readily  computed.  All  other  source  terms  depend  on  energy 
density  and  they  can  be  described  as  a  (quasi-)  linear  term:  S  =  §E,  in  which  <|>  is  a 
coefficient  that  depends  on  (integral)  wave  parameters  (e.g.,  Etot,  cr,  k,  er,  k,  etc.)  and 
action  densities  of  other  spectral  components.  Since  these  are  only  known  at  the  previous 
iteration  level  n- 1,  the  coefficient  is  determined  at  that  iteration  level:  (j)  =  (J)"'1. 
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For  positive  source  terms  (wind  input  and  the  triad  wave-wave  interactions  if  positive) 
the  integration  is  generally  more  stable  if  an  explicit  formulation  is  used  (i.e.,  the  source 
term  depends  on  E?  1  and  not  on  £”)  rather  than  an  implicit  formulation  (i.e.,  the  source 
term  also  depends  on  £").  The  explicit  formulation  for  these  source  terms  in  SWAN  is 
therefore: 

S"  ~§nlEni  .  (53) 

For  reasons  of  economy  this  explicit  approximation  is  also  used  for  the  formulation  of  the 
quadruplet  wave-wave  interactions  (for  both  the  positive  and  negative  contributions). 

This  is  considered  reasonable  since  Tolman  (1992a)  has  shown  that  using  an  explicit 
formulation  in  combination  with  a  limiter  (see  below)  gives  similar  results  as  the  use  of  a 
more  expensive  implicit  scheme  (this  implicit  formulation  is  optionally  available  in 
SWAN;  in  the  WAM  model  it  is  indicated  as  the  semi-implicit  scheme,  (the  WAMDI 
group,  (1988);  Komen  et  al,  (1994))). 

For  negative  source  terms  the  integration  is  generally  more  stable  if  an  implicit  scheme  is 
used.  The  strongly  nonlinear,  negative  source  term  of  depth-induced  wave  breaking  at 
iteration  level  n  is  accordingly  estimated  with  a  linear  approximation: 


S"  =  +  (£"-£"■') 


However,  to  achieve  even  more  stable  computations  for  this  source  term,  the  term  ^E"] 
in  this  formulation  has  been  replaced  by  <|)n  *£"  (making  the  formulation  somewhat  more 
implicit  and  thus  more  robust;  note  that  in  the  limit  the  solution  is  the  same).  Since  this 
process  of  depth-induced  wave  breaking  has  been  formulated  such  that  S  =  aS,ot  and  E  = 
aEtoh  the  derivative  is  dS  / dE  analytically  determined  as  dSlot  /  dElgt  (where  is  a  identical 
in  both  expressions  and  the  total  energy  Etor  and  the  total  source  SIot  are  the  integrals  over 
all  frequencies  and  directions  of  E(a,  0  )  and  Sds,br(a,  0),  respectively).  For  the  other 
negative  (mildly  nonlinear)  source  terms,  i.e.,  whitecapping,  bottom  friction  and  negative 
triad  wave-wave  interactions,  a  similar  accuracy  of  estimating  S'1  can  be  achieved  with  the 
following  simpler,  and  therefore  more  economical  approximation  in  which  (  dS/dE)n  i  of 
Eq.  14  has  been  replaced  by  (S/E)n  l 


<T’  ET  '+l  ^  )  (ET  -  ET  ') 


With  S  =  §E,  this  reduces  to: 
S*  =  E?  . 
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These  approximations  for  the  source  terms  are  added  to  the  elements  of  the  matrix  for  the 
propagation.  To  suppress  the  development  of  numerical  instabilities,  the  maximum  total 
change  of  action  density  per  iteration  at  each  discrete  wave  component  is  limited  to  a 
fraction  of  10%  of  the  Phillips  (1957)  equilibrium  level  (reformulated  in  terms  of  action 
density  and  wave  number  to  be  applicable  in  shallow  water;  as  in  the  WAM  model  and  in 
the  WAVEWATCH  m  model  (Tolman,  1992a)): 


0-1  a  nt* 

Ijzo  k3c 


(57) 


where  Opu  =  0.0081  is  the  Phillips'  "constant"  of  the  Pierson-Moskowitz  (1964) 
spectrum.  To  retain  the  very  rapid  but  realistic  decrease  of  wave  energy  near  the  shore 
due  to  depth-induced  wave  breaking,  this  limiter  is  not  applied  if  the  waves  actually  break 
(in  SWAN:  Hl7ns/Hm;ix  <  0.2  with  =  f&Ewl  which  implies  a  fraction  of  breakers  Qb  > 
0.00001). 

The  fraction  of  depth-induced  breakers  (Qb)  is  determined  in  SWAN  with 


fi»=o 

for 

0<  0.2 

„  _n  „2fio-exp((eo-l)/y«2) 

Ub  Uo  P  y?2  -exp((<20  -1)1 02) 

for 

0.2  <  0<  1 

Qb  =  l 

for 

0>l 

where  0=  HmJHnax .  For  0<  0.5,  Q0  =  1,  and  for  0.5  <  0<  1,  Q0  =  (20-  if. 


5.2.5. 1.2  Wave-induced  Set-up 

In  1-D  cases  the  wave-induced  set-up  is  calculated  in  SWAN  with  a  simple  trapezoidal 
rule. 

In  2-D  cases  the  Poisson  equation  of  the  divergence-free  force  field  is  solved  in  SWAN 
with  the  same  solver  that  is  used  for  wave  propagation  with  ambient  currents.  The 
boundary  conditions  for  this  elliptical  partial  differential  equation  are: 

Non-nested  computations: 

•  At  open  boundaries,  the  equilibrium  between  wave  force  and  hydrodynamic 
pressure  gradient  is  normal  to  the  model  boundary, 

•  At  last  grid  points  before  shoreline,  the  equilibrium  between  wave  force  and 
hydrodynamic  pressure  gradient  is  normal  to  the  model  boundary, 

•  At  deepest  boundary  point,  the  set-up  is  zero. 
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Nested  computations: 

•  At  open  boundaries,  the  set-up  is  taken  from  the  larger  computation, 

•  At  last  grid  points  before  shoreline,  the  equilibrium  between  wave  force  and 
hydrodynamic  pressure  gradient  is  normal  to  the  model  boundary. 

The  shoreline  in  SWAN  moves  as  dictated  by  the  wave-induced  set-up.  The  set-up 
computations  are  available  on  both  the  rectilinear  and  curvilinear  grids. 


5. 2.5. 1.3  Curvilinear  Grid 

The  propagation  scheme  in  SWAN  for  geographic  space  is  formulated  on  a  curvilinear 
geographic  grid  (irregular,  quadrangular,  and  not  necessarily  orthogonal)  rather  than  the 
rectilinear  grid  of  SWAN  Cycle  I.  This  modification  is  based  on  approximating  the 
geographic  distribution  of  the  energy  (action)  density  between  each  three  neighboring  grid 
points  with  a  flat  triangle.  The  gradient  in  each  grid  point  at  location  (x;,  yj)  is  then 
readily  approximated  from  the  up-wind  grid  points.  For  the  x-direction  this 
approximation  is  for  grid  point  i,  j  (the  grid  points  are  ordered  in  x,  y-space  with  labels  i 
and  j  respectively): 


ZC,N_ 

uj 

1 

dx  ~ 

Ax, 

T 

- 1 

$ 

_ 1 

(59) 


where  Ax,  —  Ax,  —  (Ay,  / Ay2  )Ax2 ,  Ax2  =  Ax2  -  (Ay2  /  Ay, ) Ax, .  The  increments  are  Ax]  = 

xi’j  ~  x'-ij’  =  Xjj  -  Xj'j.j,  Ayi  =  y(>7-  -  y,./j  and  Ay2  =  y,j  -  y(-; /.  The  gradient  in  y- 

direction  is  similarly  estimated. 


5.2.6  SWAN  Physics 

SWAN  accounts  for  the  following  Physics: 

•  wave  propagation  in  time  and  space,  shoaling,  refraction  due  to  current  and  depth, 
frequency  shifting  due  to  currents  and  non-station  ary  depth; 

•  wave  generation  by  wind; 

•  three-  and  four-wave  interactions; 

•  whitecapping,  bottom  friction,  and  depth-induced  breaking; 

•  wave  induced  setup; 

•  propagation  from  laboratory  up  to  global  scales; 

•  transmission  through  and  reflection  from  obstacles. 
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5.3  SWAN  Routines 

5.3.1  Command  Reading  Routines  ( ocpcre  FOR  File) 

5.3.1.1  Logical  Function  EQCSTR 

Function  EQCSTR  is  assigned  the  value  True  if  the  two  strings  are  the  same  (case- 
insensitive). 

Calling  Sequence:  eqcstr  (str  1 ,  str2) 

Data  Declaration:  Character  strl,str2 

Arguments:  strl ,  str2  Two  character  strings  to  be  compared. 

5.3.1.2  Subroutine  GETKAR 

Subroutine  GETKAR  reads  the  next  character  (KAR)  from  the  string  KAART.  The 
position  of  this  character  in  KAART  is  indicated  by  KARNR.  If  needed,  a  new  input  line 
is  read.  At  the  end  of  the  input  file,  ELTYPE  is  made  EOF. 

5.3.1.3  Subroutine  IGNORE 

Subroutine  IGNORE  calls  subroutine  INKEYW  to  read  a  keyword.  If  this  keyword  is 
equal  to  string,  ELTYPE  is  made  USED.  It  is  used  if  a  keyword  can  occur  in  the  input, 
which  does  not  lead  to  any  action. 

Calling  Sequence:  ignore  (string) 

Data  Declaration:  Character  string 

Arguments:  string  Keyword  (if  appearing  in  the  input  file)  that  can  be 

ignored. 

5.3. 1.4  Subroutine  INCSTR 

Subroutine  INCSTR  reads  a  string  in  free  format. 

Calling  Sequence:  incstr  (naam,  c,  kont,  csta) 

Data  Declaration:  Character  naam,  c,  kont,  csta 
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Arguments:  naam  Name  of  the  variable  according  to  the  User’s 

Manual. 

kont  Variable  options: 

=  req  Error  message  if  no  value  is  found  in  the 
input  file; 

=  unc  If  no  value,  then  variable  will  not  be 
changed; 

=  sta  If  no  value,  then  variable  will  get  default 
value; 

=  rqi  Variable  may  not  have  the  value  of  csta; 
=  rep  Repeat; 

=  nskp  No  skip.  If  data  item  is  of  different  type, 
value  is  left  unchanged. 

c  String  to  be  read  from  the  input  file, 

csta  Default  value  of  the  string. 

5.3.1.5  Subroutine  INCTIM 

Subroutine  INCTIM  reads  and  interprets  a  time  string. 

Calling  Sequence:  inctim  (ioptim,  naam,  rv,  kont,  rsta) 

Data  Declaration:  Integer  ioptim 

Real  rv,  rsta 

Character  naam,  kont 

Arguments:  ioptim  Time  reading  option  (see  subroutine  DTSTTI). 

rv  Variable  that  is  to  be  assigned  a  value, 

rsta  Default  value. 

naam  Name  of  the  variable  according  to  the  User’s 

Manual. 

kint  Variable  options: 

=  req  Error  message  if  no  value  is  found  in  the 
input  file; 

=  unc  If  no  value,  then  variable  will  not  be 
changed; 

=  sta  If  no  value,  then  variable  will  get  default 
value; 

=  rqi  Variable  may  not  have  the  value  of  rsta; 
=  rep  Repeat; 

=  nskp  No  skip.  If  data  item  is  of  different  type, 
value  is  left  unchanged. 
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5.3.1. 6  Subroutine  INDBLE 

Subroutine  INDBLE  reads  a  double  precision  number  in  free  format. 

Calling  Sequence:  indble  (naam,  r,  kont,  rsta) 

Data  Declaration:  Real  r,  rsta 

Character  naam,  kont 

Arguments:  r  The  value  of  the  variable  that  is  to  be  read. 

rsta  Reference  value  needed  for  kont  =  sta  or  rqi 

kont  Variable  options: 

=  req  Variable  is  required; 

=  unc  If  no  variable,  then  variable  will  not  be 
changed; 

=  sta  If  no  variable,  then  variable  will  get  value  of 
rsta; 

=  rqi  Variable  may  not  have  the  value  of  rsta; 

=  rep  Repeat; 

=  nskp  No  skip.  If  the  data  item  is  of  a  different  type 
then  the  value  is  left  unchanged, 
naam  Name  of  the  variable  according  to  the  User’s 

Manual. 

5.3.1 .7  Subroutine  ININTG 

Subroutine  ININTG  reads  an  integer  number  in  free  format. 

Calling  Sequence:  inintg  (naam,  iv,  kont,  ista) 

Data  Declaration:  Integer  iv,  ista 

Character  kont,  naam 

Arguments:  iv  Integer  variable  that  is  to  be  assigned  a  value, 

ista  Default  value. 

naam  Name  of  the  variable  according  to  the  User’s 

Manual. 

kont  Variable  options: 

=  req  Error  message  if  no  value  is  found  in  the 
input  file; 

=  unc  If  no  value,  then  variable  will  not  be 
changed; 

=  sta  If  no  value,  then  variable  will  get  default 
value; 
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=  rqi  Variable  may  not  have  the  value  of  rsta; 

=  rep  Repeat; 

=  nskp  No  skip.  If  the  data  item  is  of  a  different 
type,  then  the  value  is  left  unchanged. 

5.3.1.8  Subroutine  ININTV 

Subroutine  ININTV  reads  a  time  interval  in  the  form:  number  day/hr/min/sec. 

Calling  Sequence:  inintv  (naam,  rvar,  kont,  rsta) 

Data  Declaration:  Character  kont,  naam 

Real  rvar,  rsta 

Arguments:  naam  Name  of  the  variable  according  to  the  User’s 

Manual. 

kont  Variable  options: 

=  req  Error  message  if  no  value  is  found  in  the 
input  file; 

=  unc  If  no  value,  then  variable  will  not  be 
changed; 

=  sta  If  no  value,  then  variable  will  get  default 
value; 

=  rqi  Variable  may  not  have  the  value  of  rsta\ 

=  rep  Repeat; 

=  nskp  No  skip.  If  data  item  is  of  a  different  type, 
value  is  left  unchanged, 
rsta  Default  value. 

rv31"  Variable  that  is  to  be  assigned  a  value. 

5.3.1.9  Subroutine  INKEYW 

Subroutine  INKEYW  reads  a  keyword. 

Calling  Sequence:  inkeyw  (kont,  csta) 

Data  Declaration:  Character  kont,  csta 

Arguments:  kont  Action  to  be  taken  if  no  keyword  is  found  in  input: 

=  req  Required.  Error  message; 

=  sta  Standard.  The  value  of  csta  is  assigned  to 
keyword. 

csta  Default  value  of  the  string. 
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5.3.1.10  Subroutine  INREAL 

Subroutine  INREAL  reads  a  real  number  in  free  format. 

Calling  Sequence:  inreal  (naam,  r,  kont,  rsta) 

Data  Declaration:  Real  r,  rsta 

Character  naam,  kont 

Arguments:  r  The  value  of  the  variable  that  is  to  be  read. 

rsta  Reference  value  needed  for  kont  =  sta  or  rqi. 

kont  Variable  options: 

=  req  Variable  is  required; 

=  unc  If  no  variable,  then  variable  will  not  be 
changed; 

=  sta  If  no  variable,  then  variable  will  get  value  of 
rsta; 

=  rqi  Variable  may  not  have  the  value  of  rsta; 

=  rep  Repeat; 

=  nskp  No  skip.  If  data  item  is  of  different  type, 
then  the  value  is  left  unchanged, 
naam  Name  of  the  variable  according  to  the  User’s 

Manual. 


5.3.1.11  Subroutine  KEYWIS 

Function  KEYWIS  tests  whether  or  not  a  keyword  given  by  the  user  coincides  with  a 
keyword  known  in  the  program  (i.e.  string).  If  so,  KEYWIS  is  made  True,  otherwise  it  is 
False.  ELTYPE  is  made  USED,  so  that  the  next  element  can  be  read. 

Calling  Sequence:  keywis  (string) 

Data  Declaration:  Character  string 

Arguments:  string  A  keyword,  which  is  compared  with  another 

keyword  found  in  the  input  file. 
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5.3.1.12  Subroutine  LEESEL 


Subroutine  LEESEL  reads  a  new  data  item  from  the  string  KAART.  The  type  of  the  item 
is  determined,  and  the  contents  appear  in  ELTEXT,  ELINT,  or  ELREAL,  as  the  case  may 
be. 

The  following  types  are  distinguished: 


KEY 

Keyword. 

INT 

Integer  or  real  number. 

REAL 

Real  number. 

CHAR 

Character  string  enclosed  in  quotes. 

EMPT 

Empty  data  field. 

OTHR 

Non-empty  data  item  not  recognized  as  real,  integer  or  character. 
Possibly  a  time  string. 

EOF 

End  of  input  file. 

EOR 

End  of  repeat  or  end  of  record. 

ERR 

Error. 

USED 

Used,  item  last  read  is  processed  already. 

5.3.1.13  Subroutine  NWL1NE 

Subroutine  NWLINE  jumps  to  the  reading  of  the  next  input  line  if  the  end  of  the  previous 
one  is  reached. 


5.3.1.14  Subroutine  PUTKAR 


Subroutine  PUTKAR  inserts  a  character  ( karr ),  usually  read  by  subroutine  GETKAR, 
into  the  string  Itext,  which  is  equal  to  ELTEXT,  in  the  place  jkar.  After  this ,jkar  is 
increased  by  one. 


Calling  Sequence:  putkar  (Itext,  karr,  jkar) 


Data  Declaration:  Integer 

Character 


jkar 

karr,  Itext 


Arguments:  jkar 

Itext 

karr 


Counts  the  number  of  characters  in  a  data  field. 
Character  string.  After  a  number  of  calls  it  will 
contain  the  character  representation  of  a  data  field. 
Character  to  be  inserted  into  Itext. 
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5.3.1.15  Subroutine  RDINT 

Subroutine  RDINT  initializes  the  command  reading  system. 


5.3.1.16 


Subroutine  UPCASE 


Subroutine  UPCASE  changes  all  characters  of  the  string  charst  from  lower  to  uppercase. 
Calling  Sequence:  upcase  (charst) 

Data  Declaration:  Character  charst 


Arguments: 


charst 


A  character  string. 


5.3.1.17  Subroutine  WRNKEY 

Subroutine  WRNKEY  produces  an  error  message.  It  is  called  if  an  illegal  keyword  is 
found  in  the  user's  input.  It  makes  ELTYPE  =  USED. 


5.3.2  Dynamic  Data  Pool  Routines  (ocpdpn  FOR  Files) 
5.3.2.1  Subroutine  COPYCH 


Subroutine  COPYCH  copies  a  string  into  an  integer  array  or  vice-versa.  The  variable 
move  (TO_  or  FROM_)  indicates  the  copying  direction. 


Calling  Sequence: 


copych  (string,  move,  iarray,  lenarr,  ierr) 


Data  Declaration:  Integer  iarray,  lenarr,  ierr 

Character  string,  move 


Arguments: 


iarray 

An  integer  array. 

lenarr 

Length  of  iarray. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End-of-file. 

string 

A  character  string. 

move 

If  move  =  to_,  string  is  copied  to  iarray4. 

If  move  =  from_,  string  is  copied  from  iarray. 
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5 .3.2.2  Subroutine  DPADDP 

Subroutine  DPADDP  adds  a  new  pointer.  If  the  name  of  the  pointer  is  not  yet  present,  all 
of  the  data  in  array  after  the  names  and  pointers  of  the  existing  point-sets  are  moved 
lenpnt  places.  The  free  places  are  then  filled  with  the  new  name,  which  is  the  pointer  to 
the  start  of  the  record  and  the  record  length. 

Calling  Sequence:  dpaddp  (array,  pname,  pindex,  ptype,  padres,  ierr) 

Data  Declaration:  Integer  array,  pindex,  ptype,  padres,  ierr 

Character  pname 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

padres  Location  in  array  of  first  data. 

pindex  Index  of  the  new  pointer. 

ptype  Type  of  data  referenced  by  the  new  pointer: 

S  =  Single  precision  data; 

P  =  Pointers  of  the  record  referenced  by  the  pointer, 
pname  Name  of  the  new  pointer. 

53.2.3  Subroutine  DPBLDP 

Subroutine  DPBLDP  builds  a  pool  structure  into  array. 

Calling  Sequence:  dpbldp  (array,  lenarr,  lenpnm,  lenadt,  ierr) 

Data  Declaration:  Integer  array,  lenarr,  lenpnm,  lenadt,  ierr 

Arguments:  array  Array  into  which  the  pointer  structure  is  to  be  built. 

lenarr  Length  of  array.  If  the  input  value  is  negative,  it  is 

assumed  that  the  array  already  contains  the  proper 
length. 

lenpnm  Length  provided  for  the  names  of  the  pointers, 

lenadt  Length  provided  for  additional  data  in  the  pointer, 

ierr  Input: 

If  =  0  Standard  message; 

If  =  - 1  No  message; 

If  <  -1  More  complete  message. 

Output: 

=  0  No  errors,  otherwise:  >  0; 

=  9  End-of-file. 
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5.3.2.4  Subroutine  DPCHEK 

Subroutine  DPCHEK  checks  the  data  integrity  in  the  pool  and  displays  the  pool  structure. 
pool  cycles  have  to  remain  intact.  Pointer  index  — >  record  address  — >  record  length  -4  end 
of  the  record.  At  the  end  of  the  record  the  pointer  index  must  be  found. 

Calling  Sequence:  dpchek  (array,  ierr) 

Data  Declaration:  Integer  array,  ierr 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

5.3.2.6  Subroutine  DPEXPR 

Subroutine  DPEXPR  makes  record  number  pindex  the  length  newsiz .  If  the  data  type  is 
real/integer  then  the  return  record  address  is  padres.  If  the  record  data  type  is  pointer,  the 
pool  structure  is  possibly  destroyed  if  the  record  is  reduced  in  length. 

Calling  Sequence:  dpexpr  (array,  pindex,  newsiz,  padres,  ierr) 

Data  Declaration:  Integer  array,  pindex,  newsiz,  padres,  ierr 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

newsiz  New  size  of  the  record  referenced  by  the  pointer, 

padres  Location  in  array  of  the  first  data  of  the  record 

referenced  by  the  pointer, 
pindex  Index  of  a  pointer. 

53.2.7  Integer  Function  DPGETI 

Function  DPGETI  gives  the  integer  value  of  element  pplace  of  record  number  pindex  in 
array. 

Calling  Sequence:  dpgeti  (array,  pindex,  pplace,  ierr,  move) 
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Data  Declaration: 

Integer 

array,  pindex,  pplace,  ierr 

Character 

move 

Arguments: 

array 

Array  in  which  the  pointer  structure  exists. 

pindex 

Index  of  the  pointer. 

pplace 

Number  of  elements  in  the  record. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End-of-file. 

move 

If  move  =  up,  pplace  is  increased  by  one. 

5.3.2.9  Subroutine  DPINQA 

Subroutine  DPINQA  provides  information  about  the  base  pointer  of  an  array. 

Calling  Sequence:  dpinqa  (array,  lenarr,  lenocp,  numpns,  lenpnm,  lenadt,  ierr) 

Data  Declaration:  Integer  array,  lenarr,  lenocp,  numpns,  lenpnm,  lenadt,  ierr 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

lenarr  Length  of  array. 

lenocp  Number  of  occupied  places  in  the  array, 

numpns  Number  of  pointers  in  the  array, 

lenpnm  Length  provided  for  the  names  of  the  pointers, 

lenadt  Length  provided  for  additional  data  in  the  pointer, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

5.3.2.10  Subroutine  DPINQP 

Subroutine  DPINAP  provides  the  index  of  a  pointer  given  by  name,  as  well  as  the  address 

and  length  of  the  associated  record.  If  the  name  of  the  pointer  is  not  yet  present,  the  index 

and  address  will  both  be  made  zero. 

Calling  Sequence:  dpinqp  (array,  pname,  pindex,  ptype,  padres,  lenrec,  ierr) 

Data  Declaration:  Integer  array,  pindex,  padres,  lenrec,  ierr 

Character  pname,  ptype 

Arguments:  array  Array  in  which  the  pointer  structure  exists. 

pindex  Index  of  a  pointer  given  by  its  name, 

padres  Location  in  array  of  the  first  data  of  the 
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record  referenced  by  the  pointer. 

lenrec 

Length  of  the  record  referenced  by  the  pointer. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End-of-file. 

pname 

Name  of  a  pointer. 

ptype 

Type  of  data  in  record  referenced  by  the  pointer. 

5.3.2.11  Subroutine  DPMAXR 

Subroutine  DPMINR  makes  record  number  pindex  as  long  as  possible.  The  length  of  the 
record  is  returned  in  newsiz.  If  the  data  type  is  real/integer  the  record  address  padres  is 
returned. 

Calling  Sequence:  dpmaxr  (array,  pindex,  newsiz,  padres,  ierr) 

Data  Declaration:  Integer  array,  pindex,  newsiz,  padres,  ierr 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

pindex  Index  of  a  pointer. 

newsiz  New  size  of  the  record  referenced  by  the  pointer, 

padres  Location  in  array  of  the  first  data  of  the  record 

referenced  by  the  pointer, 
ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

5.3.2.12  Subroutine  DPMINR 

Subroutine  DPSHFT  makes  record  number  pindex  the  length  newsiz.  If  data  type  is 
real/integer  then  record  address  padres  is  returned.  If  the  record  data  type  is  pointer,  the 
pool  structure  is  possibly  destroyed  if  the  record  is  reduced  in  length. 

Calling  Sequence:  dpminr  (array,  pindex,  newsiz,  padres,  ierr) 

Data  Declaration:  Integer  array,  pindex,  newsiz,  padres,  ierr 

Arguments:  array  Array  in  which  the  pointer  structure  exists, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

newsiz  New  size  of  the  record  referenced  by  the  pointer. 
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padres  Location  in  array  of  the  first  data, 

pindex  Index  of  a  pointer  of  the  record  referenced  by  the 

pointer. 


5.3.2.13  Subroutine  DPPUTR 


Subroutine  DPPUTR  puts  a  real  value  into  an  integer  array.  Array  is  declared  here  as 
real,  but  it  is  integer  in  the  calling  program. 


Calling  Sequence:  dpputr  (array,  pplace,  rv) 


Data  Declaration:  Integer 
Real 


pplace 
array,  rv 


Arguments: 


pplace  Number  of  elements  in  array. 

array  Array  in  which  the  pointer  structure  exists. 

rv  Real  variable  to  be  put  into  array. 


5.3.2.14  Subroutine  DPSHFT 


Subroutine  DPEXPR  adds  mshif  to  empty  places  ( mshif>  0)  or  deletes  -mshif  places 
(mshif  <  0)  after  ILOX  in  array  IOUTD. 


Calling  Sequence: 

dpshft  (array. 

linsrt,  mshif,  ierr) 

Data  Declaration: 

Integer 

array,  linsrt,  mshif,  ierr 

Arguments: 

array 

Array  in  which  the  pointer  structure  exists. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End-of-file. 

linsrt 

First  element  that  is  moved. 

mshif 

Number  of  places  to  be  added  after  linsrt. 

5.3.2.15  Character  Function 

DPTYPE 

Function  DPTYPE  provides  the  type  of  data  in  the  record  with  pindex. 
Calling  Sequence:  dptype  (array,  pindex) 

Data  Declaration:  Integer  array,  pindex 


54 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


Arguments:  array  Array  in  which  the  pointer  structure  exists, 

pindex  Index  of  the  new  pointer. 

5.3.2.16  Integer  Function  IADRS 

Function  IADRS  provides  the  address  of  a  record  in  a  pool.  If  the  name  of  the  pointer  is 
not  yet  present,  the  index  and  the  address  will  both  be  made  zero. 

Calling  Sequence:  iadrs  (array,  pindex) 

Data  Declaration:  Integer  array,  pindex 

Arguments:  array  Array  in  which  pointer  structure  exists, 

pindex  Index  of  a  point. 

5.3.2.17  Integer  Function  OCINTG 

Function  OCINTG  delivers  an  integer  value  stored  as  a  real  array. 

Calling  Sequence:  ocintg  (rvalue) 

Data  Declaration:  Integer  rvalue 

Arguments:  rvalue  An  integer  value. 

5.3.2.18  Real  Function  OCREAL 

Function  OCREAL  delivers  a  real  value  stored  in  an  integer  array. 

Calling  Sequence:  ocreal  (ivalue) 

Data  Declaration:  Integer  ivalue 

Arguments:  ivalue  An  integer  value. 

5.3.3  Installation  Dependent  Subroutines  ( ocpids  FOR  Files) 

5.3.3.1  Subroutine  CMTOPL 

Subroutine  CMTOPL  converts  paper  coordinates  (xp,  yp  in  cm)  to  (HP)  plot  units. 
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Calling  Sequence: 

cmtopl  (xp,  yp,  ix,  iy) 

Data  Declaration: 

Integer 

lnt,  ix,  iy 

Real 

dashl,  xp,  yp 

Arguments: 

lnt 

Line  type: 

1-6:  Dashed, 

10:  Continuous. 

dashl 

Dash  length. 

*p,yp 

Paper  coordinates. 

ix,  iy 

Integer  numbers. 

Common  Blocks: 

PLPARM(3) 

PLPARM(4) 

PLPARM(5) 

PLPARM(6) 

5.3.3.2  Subroutine  DTSTTI 


Subroutine  DTSTTI  transforms  time  strings  into  integer  time  arrays. 


Calling  Sequence:  dtstti  (iopt,  timstr,  dttime) 

Data  Declaration:  Integer  iopt,  dttime 

Character  timstr 


Arguments: 


iopt  Option  number, 

timstr  Time  string. 

dttime  Time  array  elements:  year,  month,  day,  hour, 

minute  and  second. 


5.3.3.3 


Subroutine  DTTIST 


Subroutine  DTTIST  transforms  integer  time  arrays  into  time  strings. 
Calling  Sequence:  dttist  (iopt,  timstr,  dttime) 


Data  Declaration: 


Arguments: 


Integer  iopt,  dttime 

Character  timstr 

iopt  Option  number, 

timstr  Time  string. 
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dttime  Time  array  elements:  year,  month,  day,  hour, 

minute  and  second. 

5.3.3.4  Subroutine  OCDTIM 

Using  processor  dependent  routines,  subroutine  OCDTIM  gets  the  time  of  processing. 
Calling  Sequence:  ocdtim  (prctim) 

Data  Declaration:  Integer  prctim 

Arguments:  prctim  Time  array  elements:  year,  month,  day,  hour, 

minute  and  second. 

5.3.3.5  Subroutine  OCPINI 

Subroutine  OCPINI  initializes  a  number  of  common  variables  and  opens  standard  input 
and  output  files  if  necessary. 

Calling  Sequence:  ocpini  (inifil,  lread,  inerr) 

Data  Declaration:  Integer  inerr 

Logical  lread 

Character  inifil 

Arguments:  inerr  Number  of  the  initialization  error. 

inifil  Name  of  the  initialization  file, 

lread  If  true,  command  input  file  must  be  opened  and 

command  reading  must  be  initialized. 

5.3.3.6  Subroutine  OPENDF 

Subroutine  OPENDF  terminates  a  picture. 

5.3.3.8  Subroutine  OPFRAM 

Subroutine  OPFRAM  plots  the  edge  of  the  figure  and  the  captions. 

Calling  Sequence:  opfram  (fropt,  ptitl) 

Data  Declaration:  Integer  fropt 
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Character  ptitl 

Arguments:  fropt  Frame  option: 

=  0  No  frame, 

=  1  Simple  frame, 

=  2  DUT  frame, 
ptitl  Figure  title. 

Common  Blocks:  FILENM 
XASL 
YASL 
SYMSIZ 
XPLO 
XPHI 
YPLO 
YPHI 
SUBLNS 
XPSUB 
YPSUB 

5.3.3.9  Subroutine  OPINIT 

Subroutine  OPINIT  starts  the  plotting  of  a  figure  and  opens  the  plot  file  if  necessary. 

Calling  Sequence:  opinit  (xflen,  yflen) 

Data  Declaration:  Real  xflen,  yflen 

Arguments:  xflen  Length  of  figure  in  x-direction. 

yflen  Length  of  figure  in  y-direction. 

Common  Blocks:  FILENM 

5.3.3.10  Subroutine  OPMARK 

Subroutine  OPMARK  plots  a  single  (centered)  symbol. 

Calling  Sequence:  opmark  (xt,  yt,  syms,  isym,  updown) 

Data  Declaration:  Integer  isym 

Real  xt,  yt,  syms 

Character  updown 
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Arguments:  xt,  yt  Place  where  the  first  character  is  plotted. 

syms  Size  of  the  symbols  on  the  plot, 

isym  Indicator  of  the  symbol  to  be  plotted.  Symbol  is 

centered  at  (xt,  yt). 

updown  =  up  Pen  moves  to  (xt,  yt)  with  pen  up; 

=  down  Pen  moves  to  (xt,  yt)  with  pen  down. 

5.3.3.11  Subroutine  OPNPEN 

Subroutine  OPNPEN  puts  on  a  new  plotting  pen  (with  different  color). 

Calling  Sequence:  opnpen  (ipen) 

Data  Declaration:  Integer  ipen 

Arguments:  ipen  Number  of  the  new  pen. 

5.3.3.12  Subroutine  OPPLOT 

Subroutine  OPPLOT  moves  the  pen  to  the  location  (xt,  yt). 

Calling  Sequence:  opplot  (xt,  yt,  updown) 

Data  Declaration:  Real  xt,  yt 

Character  updown 

Arguments:  xt,  yt  Place  where  the  first  character  is  plotted. 

updown  =  up  Pen  moves  to  (xt,  yt)  with  pen  up; 

=  down  Pen  moves  to  (xt,  yt)  with  pen  down. 

5.3.3.13  Subroutine  OPTEXT 

Subroutine  OPTEXT  plots  a  string. 

Calling  Sequence:  optext  (xt,  yt,  syms,  string,  angl,  nc) 

Data  Declaration:  Integer  nc 

Real  xt,  yt,  syms,  angl 

Character  string 

Arguments:  xt,  yt  Place  where  the  first  character  is  plotted, 

syms  Size  of  symbols  on  plot. 
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stmg  Character  string  to  be  plotted. 

angl  Angle  under  which  the  string  is  plotted. 

nc  Number  of  characters  in  the  string. 

5.3.3.14  Subroutine  OPTYPE 

Subroutine  OPTYPE  plots  a  new  line  type. 

Calling  Sequence:  optype  (Int,  dashl) 

Data  Declaration:  Integer  Int 

Real  dashl 

Arguments:  Int  Line  type: 

1-6:  Dashed; 

10:  Continuous, 
dashl  Dash  length. 


5.3.4  Plot  Routines  (ocplot  FOR  File ) 

5.3.4.1  Subroutine  ISOLIN 

Subroutine  ISOLIN  computes  one  contour  line,  starting  from  a  given  point  in  a  given 
mesh.  Modify  idir  (contour  direction)  if  necessary  by  determining  the  line  on  which  the 
next  contour  point  is  searched  and  then  determining  the  first  guess  of  the  new  point.  Call 
search  after  the  two  steps  above  to  determine  a  new  contour  point,  if  a  new  point  is  on  the 
edge  of  the  mesh,  move  to  new  the  mesh. 

Calling  Sequence:  isolin  (f,  cval,  fstep,  cf,  bpost,  idirO,  ixO,  iyO,  srxO, 
sryO,  start,  pstat,  ibx,  iby,  errc) 

Data  Declaration:  Integer  ibx,  iby,  idirO,  ixO,  iyO,  pstat,  start 

Real  cf,  cval,  f,  fstep,  srxO,  sryO 

Logical  bpost 

Character  errc 

Arguments:  ibx  Test  for  x-connection  between  neighboring  points; 

ibx  =  0:  no  test. 

•by  Test  for  y-connection  between  neighboring  points; 

iby  =  0:  no  test. 

idirO  Initial  direction  of  contour  line  idirO 

—  1 :  -45  <=  direction  <=  45  degrees; 
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ixO 

iyO 

pstat 

start 

cf 

cval 

f 

fstep 

srxO 

sryO 

bpost 

errc 


=  2:  45  <=  direction  <=  135  degrees; 

=  3:  135  <=  direction  <=215  degrees; 

=  4:  215  <=  direction  <=  305  degrees. 

X-coordinate  of  starting  mesh. 

Y-coordinate  of  starting  mesh. 

Status  in  points  of  grid. 

Indicates  whether  a  new  contour  line  may  start  in 
given  mesh. 

Function  values  are  divided  by  cf. 

Value  of  function  on  contour  line. 

Values  of  function  to  be  contoured. 

Contour  line  interval. 

Start  point  in  the  mesh,  0  <=  srxO  <=  1 . 

Start  point  in  the  mesh,  0  <=  sryO  <=  1. 

Indicates  whether  posting  of  the  function  value  is  to 
be  done. 

Error  condition  code. 


5.3.4.2  Subroutine  OCPISO 

Subroutine  OCPISO  organizes  the  plotting  of  contour  lines.  The  procedure  consists  of  the 
following  steps: 

1)  Determine  gradients  in  points  where  F  >  0. 

2)  Extrapolate  where  F  =  0  (if  epos  =  pos). 

3)  Start  contour  lines  from  boundary  points. 

4)  Start  contour  lines  from  interior  points. 

Calling  Sequence:  ocpiso  (epos,  ibx,  iby,  pstat,  f,  fmin,  fstep,  fmax,  cf,  start) 

Data  Declaration:  Integer  ibx,  iby,  pstat,  start 

Real  cf,  f,  fmin,  fmax,  fstep 

Character  epos 

Arguments:  ibx  Test  for  x-connection  between  neighboring  points; 

ibx  =  0:  no  test. 

iby  Test  for  y-connection  between  neighboring  points; 

iby  =  0:  no  test. 

pstat  Status  in  points  of  the  grid.  Point  status  is  encoded 

in  array  pstat  as  follows: 

Index  im  =  ixq  +  (iyq-l)*mxq  denotes  point 
(ixq,  iyq); 

If  ibx  and  iby  are  zero,  it  is  assumed  that  all 
connections  exist. 

Otherwise: 
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If  iand(p.vtaf(im),  ibx)  =  0,  then  connection 
between  points  (ixq,  iyq)  and  (ixq+1,  iyq)  is  absent. 
If  iand(pstaf(im),  iby)  =  0,  then  connection 
between  points  (ixq,  iyq)  and  (ixq,  iyq+1)  is  absent, 
start  For  each  mesh  indicates: 

=  0  Contour  line  went  through  this  mesh; 

=  1  New  contour  line  can  start  in  this  mesh, 
cf  Function  values  appearing  on  plot  are  divided  by 

cf- 

f  Values  of  function  to  be  contoured. 

fmax  Highest  contour  value. 

fmin  Lowest  contour  value. 

fstep  Contour  function  interval. 

epos  When  equal  to  pos,  it  means  that/>=  0. 

Common  Blocks:  MXQ 
MYQ 
DXQ 
DYQ 


5.3.4.3  Subroutine  OCPSCH 

Subroutine  OCPSCH  determines  a  scale  factor  for  a  plot.  The  resulting  scale  rsc  must  be 
smaller  than  slm,  and  it  must  be  a  number  of  the  form  10**N,  2*10**N,  or  5*10**N. 

Calling  Sequence:  ocpsch  (slm,  rsc) 

Data  Declaration:  Real  slm,  rsc 

Arguments:  slm  Maximum  size  of  the  scale  factor, 

rsc  Chosen  scale  factor. 


5.3.4.4  Subroutine  OCPSUB 


Subroutine  OCPSUB  plots  part  of  the  legend  under  a  figure. 


Calling  Sequence:  ocpsub  (cquan,  qsca,  qr,  qunit) 


Data  Declaration:  Real 

Character 


qr,  qsca 
cquan,  qunit 


Arguments:  cquan  One  of  several  cases: 

=  delt  Function  increment  is  plotted; 
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qsca 

Length  or  vector  scale: 

Input  if  cquan  =  lens  or  arow; 

Output  if  cquan  =  delt. 

qr 

Number  to  be  plotted: 

Output  if  cquan  =  lens  or  arow; 

Input  if  cquan  =  delt. 

qunit 

Common  Blocks:  XASL 
YASL 

PMR 

SYMSIZ 

Unit  of  the  plotted  quantity. 

5.3.4.5  Subroutine  OCPVEC 


Subroutine  OCPVEC  plots  a  vector  field. 


Calling  Sequence:  ocpvec  (vsca,  vvx,  vvy,  stag,  ibd,  pstat,  idist) 


Data  Declaration:  Integer 
Real 
Logical 
Character 


ibd,  idist,  pstat 
vsca,  vvx,  vvy 
pstag,  pms 
stag 


Arguments:  ibd 

pstat 

idist 

vsca 

vvx 

vvy 

pstag 

pms 

stag 


If  non-zero:  tests  with  pstat  whether  depth  is 
positive  or  not. 

Encodes  the  status  in  points  of  the  grid. 
Number  of  meshes  between  vector  origins. 
Vector  scale. 

Array  containing  x-components  of  vector. 
Array  containing  y-components  of  vector. 
True  if  staggered  grid. 

Test  for  positive  depth. 

Staggered  grid. 

Other:  non-staggered  grid. 


5.3.4.6  Subroutine  OPNUMB 

Subroutine  OPNUMB  plots  a  real  number.  The  number  is  converted  to  a  string  and  then 
written  to  a  file  using  subroutine  OPTEXT. 
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Calling  Sequence:  opnumb  (xt,  yt,  syms,  reval,  angl,  ndec) 

Data  Declaration:  Integer  ndec 

Real  xt,  yt,  syms,  angl,  reval 

Arguments:  xt,  yt  Place  where  the  first  character  is  plotted. 

syms  Size  of  the  symbols  on  the  plot, 

reval  Real  number  to  be  plotted, 

angl  Angle  under  which  the  number  is  plotted, 

ndec  Nu  mber  of  dec  i  mal  s . 

5.3.4.7  Subroutine  OPSYMB 

Subroutine  OPSYMB  plots  a  single  (centered  and  oriented)  symbol. 

Calling  Sequence:  opsymb  (xt,  yt,  syms,  isym,  angle,  updown) 

Data  Declaration:  Integer  isym 

Real  xt,  yt,  syms,  angle 

Character  updown 

Arguments:  isym  Indicator  of  the  symbol  to  be  plotted.  Symbol  is 

centered  at  (xt,  yt). 

syms  Size  of  the  symbols  on  the  plot. 

XU  yt  Place  where  the  first  character  is  plotted, 

angle  Angle  under  which  the  symbol  must  be  plotted, 

updown  =  up  Pen  moves  to  (xt,  yt)  with  pen  up; 

=  down  Pen  moves  to  (xt,  yt)  with  pen  down. 

5.3.4.8  Subroutine  PLOTF 

Subroutine  PLOTF  plots  a  point  given  in  window  (physical)  coordinates. 

Calling  Sequence:  plotf  (xf,  yf,  updown) 

Data  Declaration:  Real  xf,  yf 

Character  updown 

Arguments:  xf,  yf  Window  coordinates. 

updown  Pen  up  or  down  when  moving  to  the  point. 
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5.3.4.9  Subroutine  PSYM 

Calling  Sequence:  psym  (xf,  yf,  syms,  isym,  updown) 

Data  Declaration:  Real  xf,  yf,  syms 

Character  updown 

Integer  isym 

Arguments:  xf,  yf  Place  whereto  the  pen  must  move  and  where  the 

symbol  must  appear  in  paper  coordinates  (cm), 
syms  Size  of  symbols  on  plot  (cm), 

isym  Symbol  indicator. 

updown  Pen  up  or  down  when  moving  to  the  point. 

5.3.4.10  Subroutine  SNYPT1 

Subroutine  SNYPT1  determines  the  crossing  point  of  a  line  segment  with  the  edge  of  the 
frame;  (xs,  ys)  is  the  crossing  point  in  paper  coordinate  (cm).  The  end  points  of  the  line 
segment  are  (xl,  yl)  and  (x2,  y2).  It  is  assumed  that  ( xl ,  yl )  is  inside  the  frame,  and  (x2, 
y2)  outside. 

Calling  Sequence:  snyptl  (xl,  yl,  x2,  y2,  xs,  ys) 

Data  Declaration:  Real  x  1 ,  y  1 ,  x2,  y2,  xs,  ys 

Arguments:  xl  X  of  the  begin  point. 

yl  Y  of  the  begin  point. 

x2  X  of  the  end  point. 

y2  Y  of  the  end  point, 

xs  X  of  the  crossing, 

ys  Y  of  the  crossing. 

5.3.4.11  Subroutine  SNYPT2 

Subroutine  SNYPT2  determines  the  number  of  crossing  points  and  their  coordinates  of  a 
line  segment  with  the  plotting  frame.  Both  ends  of  the  line  segment  should  be  outside  the 
plotting  frame.  First  check  whether  the  line  segment  lies  fully  right,  left,  top  or  bottom  of 
the  plotting  frame.  When  this  is  not  the  case  it  looks  for  possible  cross-sections  with  all 
four  sides  of  the  plotting  frame. 

Calling  Sequence:  snypt2  (x  1 ,  y  1 ,  x2,  y2,  xs  1 ,  ys  1 ,  xs2,  ys2,  nsnypt) 
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Data  Declaration: 

Integer 

nsnypt 

Real 

si ,  y  1 ,  x2,  y2,  xsl ,  ysl ,  xs2,  ys2 

Arguments: 

nsnypt 

Total  number  of  crossing  points. 

xsl 

X-coordinate  of  the  first  cross-section. 

xs2 

X-coordinate  of  the  second  cross-section. 

xl 

X-coordinate  of  the  begin  line  segment. 

x2 

X-coordinate  of  the  end  line  segment. 

ysl 

Y-coordinate  of  the  first  cross-section. 

ys2 

Y-coordinate  of  the  second  cross-section. 

yi 

Y-coordinate  of  the  begin  line  segment. 

y2 

Y-coordinate  of  the  end  line  segment. 

Common  Blocks: 

OUTPDA 

5.3.5  Miscellaneous  Routines  (ocpmix  FOR  Files) 

5.3.5.1  Subroutine  BUGFIX 

Subroutine  BUGFIX  adds  one  character  to  the  version  character  string. 

Calling  Sequence:  bugfix  (fixabc) 

Data  Declaration:  Character  fixabc 

Arguments:  fixabc  Character  indicating  a  bugfix. 

5.3.5.2  Subroutine  DTINTI 

Subroutine  DTINTI  calculates  integer  time  array  inttim  from  time  in  seconds  for  a  given 
reference  day  refday.  Every  fourth  year  is  a  leap  year  except  century-years.  Leap  years 
also  include  year  0,  1000,  2000  etc.  The  first  day  of  January  of  year  zero  is  day  number 
one. 

Calling  Sequence:  dtinti  (timesc,  inttim) 

Data  Declaration:  Integer  inttim 

Real  timesc 

Arguments:  inttim  (1)  Year; 

(2)  Month; 

(3)  Day; 
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(4)  Hour; 

(5)  Minute; 

(6)  Second. 

timesc  Time  in  seconds  from  given  reference  day  refday. 

5.3.5.3  Subroutine  DTRETI 

Calling  Sequence:  dtreti  (tstmg,  iopt,  timesc) 

Data  Declaration:  Integer  iopt 

Real  timesc 

Character  tstmg 

Arguments:  iopt  Option  number. 

timesc  Time  in  seconds  from  given  reference  day  refday. 

tstmg  Time  string. 

5.3.5.4  Real  Function  DTTIME 

Function  DTTIME  gives  the  time  in  seconds  from  a  reference  day.  It  also  initializes  the 
reference  day.  Every  fourth  year  is  a  leap  year  except  century-years.  Leap  years  also 
include  year  0,  1000,  2000  etc.  The  first  of  January  of  year  zero  is  day  number  one. 

Calling  Sequence:  dttime  (inttim) 

Data  Declaration:  Integer  inttim 

Arguments:  inttim  (1)  Year; 

(2)  Month; 

(3)  Day; 

(4)  Hour; 

(5)  Minute; 

(6)  Second. 

Common  Blocks:  REFDAY 

5. 3. 5. 5  Character  Function  DTTIWR 

Calling  Sequence:  dttiwr  (iopt,  timesc) 

Data  Declaration:  Integer  iopt 

Real  timesc 
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Character  tstmg 

Arguments:  iopt  Time  coding  option  number. 

timesc  Time  in  seconds  from  given  reference  day  refday. 

tstmg  Time  string. 

5.3.5.6  Logical  Function  EQREAL 

Function  EQREAL  determines  whether  a  value  (usually  a  value  read  from  file)  is  an 

exception  value  or  not.  Function  EQREAL  is  later  used  to  make  comparisons  of  floating 

points  within  reasonable  bounds. 

Calling  Sequence:  eqreal  (real  1 ,  reaI2) 

Data  Declaration:  Real  reall,real2 

Arguments:  real  1  Value  that  is  to  be  tested. 

real2  The  given  exception  value. 

5.3.5.7  Subroutine  FOR 

Subroutine  FOR  is  a  general  open  file  routine. 

Calling  Sequence:  for  (iunit,  ddname,  sf,  iostat) 

Data  Declaration:  Integer  iunit,  iostat 

Character  ddname,  sf 

Arguments:  iunit  =  0  Get  free  unit  number; 

>  0  Fixed  unit  number; 

Output:  allocated  unit  number, 
ddname  Filename  string  (empty  if  iunit  >  0). 

sf  File  qualifiers: 

1st  character:  O(ld),  N(ew),  S(cratch),  U(nknown); 

2nd  character:  F(ormatted),  U(nformatted). 
iostat  =  0  Full  messages  printed; 

=  -l  Only  error  messages  printed; 

=  -2  No  messages  printed; 

Output:  error  indicator. 
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5.3.5.8  Subroutine  INAR2D 

Subroutine  INAR2D  reads  a  2-D  array  from  a  data  set  and  is  used  to  read  bathymetry,  one 
component  of  wind  velocity. 

Calling  Sequence:  inar2d  (arr,  mxa,  mya,  ndsl,  ndsd,  idfm,  rform,  idla,  vfac,  nhed, 
nhedf) 

Data  Declaration:  Integer  idfm,  idla,  mxa,  mya,  ndsd,  ndsl,  nhed,  nhedf 

Real  arr,  vfac 

Character  rform 

Arguments:  idfm  Format  index. 

idla  Layout  indicator, 

mxa  Number  of  points  along  x-side  of  grid, 

mya  Number  of  points  along  y-side  of  grid, 

ndsd  Unit  number  of  the  file  from  which  to  read  the  data 

set. 

ndsl  Unit  number  of  the  file  containing  the  list  of 

filenames. 

nhedf  Number  of  heading  lines  in  the  file  (first  lines), 

nhedl  Number  of  heading  lines  in  the  file  before  each 

array. 

arr  Results  appear  in  this  array. 

rform  Format  used  in  reading  data  (character  string). 

vfac  Factor  by  which  data  must  be  multiplied. 

5.3.5.9  Subroutine  LSPLIT 

Subroutine  LSPLIT  separates  a  line  read  from  a  file  into  single  data  items.  Each  data  item 
is  found  in  a  string  datitm. 

Calling  Sequence:  Isplit  (reline,  datitm,  numitm) 

Data  Declaration:  Integer  numitm 

Character  reline,  datitm 

Arguments:  numitm  Maximum  number  of  data  items  in  the  array, 

datitm  Array  of  data  items, 

reline  String  (read  from  an  input  file). 
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5.3.5.10  Subroutine  MSGERR 

Subroutine  MSGERR  produces  error  messages.  If  necessary,  the  value  of  leverr  is 
increased.  In  case  of  a  high  error  level  an  error  message  file  is  opened. 

Calling  Sequence:  msgerr  (lev,  string) 

Data  Declaration:  Integer  lev 

Character  string 

Arguments:  lev  Indicates  how  severe  the  present  error  is. 

string  Contents  of  the  present  error  message. 

5.3.5. 11  Subroutine  REPARM 

Subroutine  REPARM  reads  parameters  used  for  reading  an  array  from  user  input. 

Calling  Sequence:  reparm  (ndsl,  ndsd,  idla,  idfm,  rform,  nhedf,  logt,  nhedt,  logc, 
nhedc) 

Data  Declaration:  Integer  idfm,  idla,  ndsl,  ndsd,  nhedf,  nhedt,  nhedc 

Logical  logt,  logc 

Character  rform 

Format  index. 

Layout  indicator. 

Unit  number  of  the  file  from  which  to  read  the  data 
set. 

Unit  number  of  the  file  containing  the  list  of 
filenames. 

Number  of  heading  lines  in  the  file  (once  in  each 
file). 

Number  of  heading  lines  in  the  file  before  reading 
each  time  level. 

Number  of  heading  lines  in  the  file  before  each 
array  or  vector  component. 

If  true,  then  the  field  is  time-dependent. 

If  true,  then  more  than  one  component  is  read  from 
the  file. 

Reading  format. 


Arguments:  idfm 

idla 
ndsd 

ndsl 

nhedf 

nhedt 

nhedc 

logt 

logc 

rform 
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5.3.5.12  Logical  Function  STPNOW 

Function  STPNOW  determines  whether  the  SWAN  program  should  be  stopped  due  to  a 
terminating  error.  STPNOW  compares  two  common  variables.  The  maximum  allowable 
error-level,  maxerr,  and  the  actual  error-level,  leverr. 

5.3.5.13  Subroutine  STRACE 

Subroutine  STRACE  produces,  depending  on  the  value  of  itrace,  a  message  containing 
the  name  subnam.  The  purpose  of  this  action  is  to  detect  the  entry  of  a  subroutine.  The 
first  executable  statement  of  subroutine  AAA  (which  is  a  name  for  any  subroutine)  must 
be:  CALL  STRACE(IENT,  AAA).  Further  if  necessary:  DATA  IENT/0/  If  ITRACE  =  0, 
no  message.  If  ITRACE  >  0,  a  message  is  printed  up  to  itrace  times. 

Calling  Sequence:  strace  (ient,  subnam) 

Data  Declaration:  Integer  ient 

Character  subnam 

Arguments:  ient  Number  of  entries  into  the  calling  subroutine, 

subnam  Name  of  the  calling  subroutine. 

5.3.5.14  Subroutine  TABHED 

Subroutine  TABHED  prints  the  table  heading  that  contains  the  run  description,  three 
lines,  name  of  institute,  program  name,  project  name,  and  run  ID. 

Calling  Sequence:  tabhed  (prognm,  Ipr) 

Data  Declaration:  Integer  lpr 

Character  prognm 

Arguments:  Ipr  Unit  reference  number. 

prognm  Program  name. 
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5.3.6  Computation  Subroutines  (swancoml  FOR  File) 
5.3.6.1  Subroutine  ACTION 


Subroutine  ACTION  determines  the  transportation,  refraction  and  source  terms  of  the 
ACTION  balance  equation. 


Calling  Sequence:  action  (idcmin,  idcmax,  spcsig,  ac2,  cax,  cay,  cas,  cad,  imatla, 
imatda,  imatua,  imatra,  warea,  sector,  imat51,  imat6u,  iscmin, 
iscmax,  iddlow,  iddtop,  isstop,  anyblk,  anybin,  leakcl,  acl, 
dyndep,  rdx,  rdy,  swpdir,  ix,  iy,  ksx,  ksy,  obsta,  xcgrid,  ycgrid, 
cross,  iter,  kgrpnt,  dep2,  chs,  obredf,  wlev2,  caxl,  cayl,  spcdir, 
ego) 


Data  Declaration:  Real 


Integer 

Logical 


spcsig,  xcgrid,  ycgrid,  ac2,  cax,  cay,  caxl,  cay2, 
ego,  cas,  cad,  imatla,  imatda,  imatua,  imatra,  imat51, 
imat6u,  leakcl,  rdx,  rdy,  dep2,  obredf,  wlev2,  chs, 
spcdir,  ksx,  ksy 

warea,  idcmin,  idcmax,  iscmin,  iscmax,  sector, 
obsta,  kgrpnt,  cross,  iddlow,  iddtop,  isstop,  swpdir, 
iter,  ix,  iy,  supdir 
anyblk,  anybin,  dyndep 


Arguments: 


spcsig 

xcgrid 

ycgrid 

idcmin 

idcmax 

ac2 

cax 

cay 

cas 

cad 

imatla 

imatda 

imatua 

imatra 

warea 


Relative  frequencies  in  computational  domain  in 
sigma  space. 

X-coordinate  of  computational  grid  in  x-direction. 
Y-coordinate  of  computational  grid  in  y-direction. 
Integer  array  containing  minimum  counter. 

Integer  array  containing  maximum  counter. 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 
Wave  transport  velocity  in  x-direction  as  function 
of  (id,  is,  ic). 

Wave  transport  velocity  in  y-direction  as  function 
of  (id,  is,  ic). 

Wave  transport  velocity  in  frequency-direction  as 
function  of  (id,  is,  ic). 

Wave  transport  velocity  in  spectral  direction  as 
function  of  (id,  is,  ic). 

Coefficients  of  lower  diagonal  of  matrix. 
Coefficients  of  diagonal  of  matrix. 

Coefficients  of  upper  diagonal  of  matrix. 
Coefficients  of  right-hand  side  of  matrix. 

The  big  array  used  in  data  pool  scheme,  to  contain 
many  variables. 
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sector 

imat51 

imat6u 

iscmin 

iscmax 

iddlow 

iddtop 

isstop 

anyblk 

anybin 

leakcl 

acl 

dyndep 
rdx, rdy 
swpdir 
ix 

iy 

ksx 


ksy 


obsta 

xcgrid 

ycgrid 

cross 


iter 

kgrpnt 

dep2 

chs 

obredf 

wlev2 

caxl 

cayl 


Indicates  which  configuration  is  present. 
Coefficient  of  lower  diagonal  in  the  presence  of  a 
current. 

Coefficient  of  upper  diagonal  in  the  presence  of  a 
current. 

Frequency  dependent  counter  in  frequency  space. 
Frequency  dependent  counter  in  frequency  space. 
Minimum  counter  per  sweep  taken  over  all 
frequencies. 

Maximum  counter  per  sweep  taken  over  all 
frequencies. 

Maximum  frequency  counter  for  wave  components 
that  are  propagated  within  a  sweep. 

2D  Determines  if  a  bin  is  BLOCKED  by  a  counter 
current  based  on  a  CFL  criterion. 

=  True,  if  a  certain  bin  is  enclosed  in  a  sweep. 

Leak  coefficient. 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 
If  true,  depths  vary  with  time. 

Array  containing  spatial  derivative  coefficient. 
Current  sweep  direction. 

Counter  of  grid  points  in  x-direction. 

Counter  of  grid  points  in  y-direction. 

Dummy  variable  to  get  the  right  sign  in  the 
numerical  difference  scheme  in  x-direction 
depending  on  the  sweep  direction,  KSX  =  nl. 
Dummy  variable  to  get  the  right  sign  in  the 
numerical  difference  scheme  in  y-direction 
depending  on  the  sweep  direction,  KSY  =  nl. 
Array  of  obstacle  parameters. 

X-coordinate  of  computational  grid  in  x-direction. 
Y-coordinate  of  computational  grid  in  y-direction. 
Array  which  contains  0's  if  there  is  no  obstacle 
crossing  if  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor  cross  is  equal  to  the 
number  of  the  obstacle. 

Iteration  counter  for  SWAN. 

Grid  point  addresses. 

Depth. 

Sign,  wave  height  in  whole  computational  grid. 
Array  of  action  density  reduction  coefficients. 
Water  level  in  grid  points. 

Propagation  velocity  in  x  old  time  level. 
Propagation  velocity  in  y  old  time  level. 
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spcdir 


ego 


(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 
(*,5)  Cosine*sine  of  spectral  directions; 
(*,6)  SineA2  of  spectral  directions. 
Group  velocity. 


S.3.6.2  Subroutine  INSAC 

Subroutine  INSAC  checks  the  accuracy  of  the  final  computation.  If  a  certain  accuracy  has 
been  reached  it  stops  the  iteration. 


Calling  Sequence:  insac  (ac2,  spesig,  dep2,  hsacc2,  sacc2) 

Data  Declaration:  Real  spesig,  ac2,  dep2,  hsacc2,  sacc2 


Arguments: 


spesig 

Relative  frequencies  in  computational  domain  in 

sigma  space. 

dep2 

Depth. 

ac2 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

hsacc2 

Dummy  array  for  the  significant  wave  height  (old 

value). 

sacc2 

Dummy  array  for  the  mean  frequency  (old  value). 

5.3.6.3  Subroutine  PHILIM 


Subroutine  PHILIM  limits  the  change  in  action  density  between  two  iterations  to  a  certain 
percentage  of  the  Phillips  equilibrium  level. 


Calling  Sequence:  philim  (ac2,  ac2old,  ego,  kwave,  spesig,  anybin,  qb_loc) 


Data  Declaration:  Logical 
Real 


anybin 

ac2,  ac2old,  ego,  kwave,  spesib,  qbjo 


Arguments: 


qbjoc  Local  value  of  qb  (fraction  of  breaking  waves). 

ac2  (Non-stationary  case)  action  density  as  function  of 

D,  S,  X,  Y  at  time  T  +  DT. 

ac2old  Values  of  action  density  stored  for  limiter, 

ego  Group  velocity. 

kwave  Wave  number  as  function  of  the  relative  frequency 

S  and  position  ic  (ix,  iy). 

spesig  Relative  frequencies  in  computational  domain  in 
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sigma  space. 

anybin  =  True  if  a  certain  bin  is  enclosed  in  a  sweep.  Array 

is  used  to  determine  whether  or  not  some 
coefficients  in  the  array  have  to  be  changed. 


53.6.4  Subroutine  RESCALE 


Subroutine  RESCALE  removes  negative  values  from  a  computed  action  density 
spectrum. 


Calling  Sequence: 


rescale  (ac2,  isstop,  idcmin,  idcmax) 


Data  Declaration:  Real 

Integer 


ac2 

idcmin,  idcmax,  isstop 


Arguments: 


ac2  Action  densities. 

isstop  Maximum  frequency  counter  in  this  sweep, 

idcmin  Integer  array  containing  minimum  counter  of 

directions. 

idcmax  Integer  array  containing  maximum  counter. 


53.6.5  Subroutine  SACCUR 

Subroutine  SACCUR  checks  the  accuracy  of  the  final  computation.  If  a  particular 
accuracy  has  been  reached  then  the  iteration  process  terminates. 

Calling  Sequence:  saccur  (dep2,  ac2,  spcsig,  accur,  hsaccl,  hsacc2,  saccl,  sacc2, 
delhs,  deltm) 


Data  Declaration: 

Real 

spcsig,  ac2,  dep2,  hsaccl,  hsacc2,  saccl,  sacc2, 
delhs,  deltm,  accur 

Arguments: 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

dep2 

Depth. 

ac2 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

accur 

User  specified  option  used  to  influence  the  criterion 
for  terminating  the  iterative  procedure  in  the  SWAN 
computations. 

hsaccl 

Dummy  array  for  the  significant  wave  height  (new 
value). 

hsacc2 

Dummy  array  for  the  significant  wave  height  (old 
value). 

75 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


sacc  1  Dummy  array  for  the  mean  frequency  (new  value). 

sacc2  Dummy  array  for  the  mean  frequency  (old  value), 

delhs  Difference  in  Hs  between  last  two  iterations, 

deltm  Difference  in  Tm  between  last  two  iterations. 


5.3.6.6  Subroutine  SCOMPU 

Subroutine  SCOMPU  is  the  main  subroutine  of  the  computational  part. 


5.3.6.7  Subroutine  SINTGRL 


Subroutine  SINTGRL  computes  several  integrals  used  in  SWAN  and  some  general 
parameters. 


Calling  Sequence:  sintgrl  (spcdir,  kwave,  ac2,  dep2,  qbjoc,  ursell,  rdx,  rdy,  ac2tot, 
etot,  abrbot,  ubot,  hs,  qb,  hm,  kmespc,  smebrk) 


Data  Declaration:  Real 


Arguments:  abrbot 

ac2 
ac2tot 
dep2 
etot 
hm 
hs 

kmespc 

kwave 

qb 

qbjoc 

smebrk 

ubot 

ursell 

spcdir 


rdx,  rdy 


dep2,  kwave,  rdx,  rdy,  spcdir,  ac2,  qb,  ubot,  ursell, 
abrbot,  etot,  hm,  hs,  qbjoc,  ac2tot,  kmespc, 
smebrk,  ac2tot 

Near  bottom  excursion. 

Action  density  as  a  function  of  id,  is,  ix  and  iy. 
Total  action  density  per  grid  point. 

Water  depth. 

Total  wave  energy  density. 

Maximum  wave  height. 

Significant  wave  height. 

Mean  average  wave  number  according  to  the 
WAM  formulation. 

Wave  number  function  of  frequency  and  ic. 
Fraction  of  breaking  waves. 

Fraction  of  breaking  waves  at  current  grid  point. 
Mean  frequency  according  to  first  order  moment. 
Near  bottom  velocity  as  function  of  ix  and  iy. 
Ursell  number  as  function  of  ix  and  iy. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Array  containing  spatial  derivative  coefficient. 
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5.3.6.8  Subroutine  SOLBAND 


Subroutine  SOLBAND  solves  the  array  in  the  case  of  a  current.  A  fully  implicit  scheme 
in  frequency  and  directional  space  is  used.  Dr.  C.  Vuik,  from  Delft  University  of 
Technology  in  the  Netherlands,  has  provided  the  subroutines  that  solve  this  matrix. 


Calling  Sequence:  solband  (band,  exact,  rhv,  rinsol,  solut,  work,  precon,  upperi, 
loperi,  anybin,  infmat,  iinsol,  imatra,  imatla,  imatda,  imatua, 
imat51,  imat6u,  ac2old,  ego,  kwave,  spcsig,  idcmin,  idcmax,  ac2, 
sector,  iter,  idtot,  istot,  iddlow,  iddtop,  isstop,  inocnv,  qbloc,  errpts, 
ix,  iy,  itsw) 


Data  Declaration:  Integer 
Real 


Logical 


iter,  itsw,  iddlow,  inocnv,  iddtop,  idtot,  istot,  isstop, 
errpts,  infmat,  iinsol,  idcmin,  idcmax,  sector 
spcsig,  exact,  rhv,  solut,  work,  precon,  imatra, 
imatla,  imatda,  imatua,  imat51,  imat6u,  ac2old,  ego, 
idcmin,  idcmax,  ac2,  qbloc,  rinsol,  upperi,  loperi, 
kwave 
anybin 


Arguments: 


iter 

Iteration  counter  for  SWAN. 

itsw 

Timestep  counter  for  SWAN. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigmaspace. 

ix 

Counter  of  grid  points  in  x-direction. 

iy 

Counter  of  grid  points  in  y-direction. 

idtot,  istot 

Maximum  range  between  the  minimum  and 
maximum  counter  in  directional  and  frequency 
space,  respectively. 

band 

Matrix  from  the  equations  to  be  solved. 

exact 

Exact  Solution. 

rhv 

Right-hand  side. 

rinsol 

Real  information  for  the  solver. 

solut 

Iterative  solution. 

work 

Work  space. 

precon 

Preconditioner. 

upperi 

Only  relevant  for  computation  in  periodic  domain. 

loperi 

Only  relevant  for  computation  in  periodic  domain. 

anybin 

=  True  if  a  certain  bin  is  enclosed  in  a  sweep. 

infmat 

Integer  information  for  the  matrix. 

iinsol 

Integer  information  for  the  solver. 

imatda 

Coefficients  of  diagonal  of  the  matrix. 

imatla 

Coefficients  of  lower  diagonal  of  the  matrix. 
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imatua 

Coefficients  of  upper  diagonal  of  the  matrix. 

imatra 

Coefficients  of  right-hand  side  of  the  matrix. 

imat5! 

Coefficients  for  implicit  calculation  in  frequency 
space  (lower  diagonal). 

imat6u 

Coefficients  for  implicit  calculation  in  frequency 
space  (upper  diagonal). 

ac2old 

Values  of  action  density  stored  for  limiter. 

ego 

Group  velocity. 

kwave 

Wave  number  as  function  of  the  relative  frequency 

S  and  position  ic  (ix,  iy). 

idcmin 

Integer  array  containing  minimum  counter. 

idcmax 

Integer  array  containing  maximum  counter. 

ac2 

Action  density  as  function  of  D,  S,  X,  Y  and  T. 

sector 

Indicates  which  configuration  is  present. 

iddlow 

Minimum  counter  per  sweep  taken  over  all 
frequencies. 

iddtop 

Maximum  counter  per  sweep  taken  over  all 
frequencies. 

isstop 

Maximum  frequency  counter  for  wave  components 
that  are  propagated  within  a  sweep. 

inocnv 

Counts  occurrence  of  nonconvergence  in  solver. 

qbloc 

Fraction  of  breaking  waves  at  current  grid  point. 

errpts 

Info  for  SWAN  to  keep  track  of  grid  points  (x,y)  at 
which  errors  occur. 

5.3.6.9  Subroutine  SOLMAT 

Subroutine  SOLMAT  solves  the  matrix  that  is  filled  in  subroutine  ACTION.  The 
solutions  give  the  values  for  the  wave  action  for  every  frequency  and  every  direction. 
Only  the  Thomas  Sweep  Algorithm  in  the  spectral  direction  solves  the  matrices. 

Calling  Sequence:  solmat  (idcmin,  idcmax,  ac2,  imatra,  imatda,  imatua,  imatla, 
ac2old,  kwave,  ego,  spesig,  qbloc) 


Data  Declaration: 

Real 

spesig,  qbloc,  ac2,  imatda,  imatla,  imatua,  imatra, 
ac2old,  kwave 

Integer 

idcmin,  idcmax 

Arguments: 

spesig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

idcmin 

Integer  array  containing  minimum  counter. 

idcmax 

Integer  array  containing  maximum  counter. 

ac2 

Action  density  as  a  function  of  D,  S,  X,  Y  and  T. 

imatda 

Coefficients  of  a  diagonal  of  matrix. 
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imatla  Coefficients  of  lower  diagonal  of  matrix, 

imatua  Coefficients  of  upper  diagonal  of  matrix, 

imatra  Coefficients  of  right-hand  side  of  matrix. 

ac2old  Values  of  action  density  stored  for  limiter, 

kwave  Wave  number  as  function  of  the  relative  frequency 

S  and  position  ic  (ix,  iy). 
ego  Group  velocity. 

qbloc  Fraction  of  breaking  waves  at  current  grid  point. 

5.3.6.10  Subroutine  SOLMT1 

Subroutine  SOLMT1  solves  the  matrix  that  is  filled  in  subroutine  ACTION.  The 
solutions  give  the  values  for  the  wave  action  for  every  frequency  and  direction.  Only  the 
Thomas  Sweep  Algorithm  in  the  spectral  direction  solves  the  matrices. 

Calling  Sequence:  solmtl  (idemin,  idemax,  ac2,  imatra,  imatda,  imatua,  imatla, 

ac2old,  kwave,  ego,  spesig,  sector,  icolu2,  anybin,  qbloc,  isstop, 
anyblk,  iddlow,  iddtop 

Data  Declaration:  Real  ac2,  imatra,  imatda,  imatua,  imatla,  ac2old,  kwave, 

ego,  spesig,  qbloc,  icolu2 

Integer  idemin,  idemax,  sector,  isstop,  iddtop,  iddlow 

Logical  anybin,  anyblk 

Arguments:  spesig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

ac2  Action  density  as  function  of  D,  S,  X,  Y  and  T. 

imatda  Coefficients  of  the  diagonal  of  the  matrix, 

imatla  Coefficients  of  the  lower  diagonal  of  the  matrix, 

imatua  Coefficients  of  the  upper  diagonal  of  the  matrix, 

imatra  Coefficients  of  the  right-hand  side  of  the  matrix, 

ego  Group  velocity. 

idemin  Integer  array  containing  minimum  counter, 

idemax  Integer  array  containing  maximum  counter, 

sector  Sectors  enclosed  in  a  sweep, 

anybin  =  True  if  a  certain  bin  is  enclosed  in  a  sweep.  The 

array  is  used  to  determine  whether  some  coefficients 
in  the  array  must  be  changed. 

icolu2  Auxiliary  array  for  storing  the  coefficients  in  the 

last  column. 

kwave  Wave  number  as  a  function  of  the  relative  frequency 

S  and  position  ic  (ix,  iy). 

qbloc  Fraction  of  breaking  waves  at  current  grid  point, 

isstop  Maximum  frequency  counter  for  wave  components 
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that  are  propagated  within  a  sweep, 
anyblk  Determines  if  a  bin  is  BLOCKED  by  a  counter 

current  based  on  a  CFL  criterion, 
iddlow  Minimum  counter  per  sweep  taken  over  all 

frequencies. 

iddtop  Maximum  counter  per  sweep  taken  over  all 

frequencies. 

5.3.6.11  Subroutine  SOLPRE 

Subroutine  SOLPRE  copies  local  spectrum  to  array  ac2old,  and  writes  the  test  output  fill 

array  for  non-active  bins. 

Calling  Sequence:  solpre  (ac2,  ac2oId,  imatra,  imatla,  imatda,  imatua,  imat51,  imat6u, 
idcmin,  idcmax,  sector,  anybin,  idtot,  istot,  iddlow,  iddtop,  isstop, 
inocnv) 

Data  Declaration:  Real  ac2,  ac2old,  imatda,  imatla,  imatua,  imatra,  imat51, 

imat6u 

Integer  idcmin,  idcmax,  iddlow,  inocnv,  iddtop,  idtot,  istot, 

isstop,  sector 
Logical  anybin 

Arguments:  ac2  Action  density  as  function  of  D,  S,  X,  Y  and  T. 

ac2old  Values  of  action  density  stored  for  limiter, 

imatda  Coefficients  of  diagonal  of  the  matrix, 

imatla  Coefficients  of  lower  diagonal  of  the  matrix, 

imatua  Coefficients  of  upper  diagonal  of  the  matrix, 

imatra  Coefficients  of  right-hand  side  of  the  matrix. 

imat51  Coefficients  for  implicit  calculation  in  frequency 

space  (lower  diagonal). 

imat6u  Coefficients  for  implicit  calculation  in  frequency 

space  (upper  diagonal). 

idcmin  Integer  array  containing  minimum  counter, 

idcmax  Integer  array  containing  maximum  counter, 

sector  Indicates  which  configuration  is  present, 

anybin  =  True  if  a  certain  bin  is  enclosed  in  a  sweep, 

idtot,  istot  Maximum  range  between  the  minimum  and 

maximum  counter  in  directional  and  frequency 
space,  respectively. 

iddlow  Minimum  counter  per  sweep  taken  over  all 

frequencies. 

iddtop  Maximum  counter  per  sweep  taken  over  all 

frequencies. 
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isstop  Maximum  frequency  counter  for  wave  components 

that  are  propagated  within  a  sweep, 
inocnv  Counts  occurrence  of  nonconvergence  in  solver. 


5.3.6.12  Subroutine  SOURCE 


Subroutine  SOURCE  computes  the  source  terms,  i.e.,  bottom  friction,  wave  breaking, 
wind  input,  whitecapping  and  non-linear  wave-wave  interactions. 


Calling  Sequence:  source  (iter,  ix,  iy,  swpdir,  kwave,  spcsig,  ecos,  esin,  ac2,  dep2, 
imatda,  imatra,  abrbot,  kmespc,  smespc,  ubot,  ufric,  ux2,  uy2, 
idcmin,  idcmax,  iddlow,  iddtop,  idwmin,  idwmax,  isstop,  plwnda, 
plwndb,  plwcap  plbtfr,  plwbrk,  pln!4s,  plnl4d,  pltri,  warea,  hs,  etot, 
qbloc,  thetaw,  hm,  fpm,  wind  10,  etotw,  groww,  alimw,  smebrk, 
snlcl,  fachfr,  dall,  dal2,  dal3,  afl  1,  ue,  sal,  sa2,  dale,  dalp,  dalm, 
da2c,  da2p,  da2m,  sfnl,  dsnl,  memnl4,  wwint,  wwawg,  wwswg, 
ego,  ustar,  zelen,  spedir,  anywnd,  disscO,  disscl,  szeroc,  eps2wc, 
diswep,  wepsme,  wcpkme,  wcpqb,  wephm,  xis,  freoef,  it,  precor, 
ursell) 


Data  Declaration:  Real 


Integer 

Logical 


ecos,  esin,  spedir,  spcsig,  abrbot,  etot,  hm,  qbloc, 
etotw,  fpm,  wind  10,  thetaw,  smespc,  kmespc,  snlcl, 
fachfr,  dall,  dal2,  dal3,  ufric,  smebrk,  hs,  szeroc, 
eps2wc,  diswep,  wcpqb,  wephm,  wepsme,  wcpkme, 
xis,  ac2,  dep2,  alimw,  imatda,  imatra,  kwave,  ubot, 
ux2,  uy2,  afll,  ue,  sal,  sa2,  dale,  dalp,  dalm, 
da2c,  da2p,  da2m,  sfnl,  dsnl,  memnl4,  plwnda, 
plwndb,  plwcap,  plbtfr,  plwbrk,  plnl4s,  plnl4d,  pltri, 
wwawg,  wwswg,  ego,  ustar,  zelen,  disscO,  disscl, 
ursell,  freoef,  etotw,  swpdir 

iter,  idwmin,  idwmax,  isstop,  iddtop,  iddlow,  ix,  iy, 
warea,  idcmin,  idcmax,  wwint,  it 
precor,  groww,  anywnd 


Arguments: 


ecos 

esin 

spedir 


spcsig 


=  spcdir(*, 2)  Cosine  of  spectral  directions. 

=  spcdir(*,3 )  Sine  of  spectral  directions. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Relative  frequencies  in  computational  domain  in 
sigma  space. 
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iter 

Iteration  counter  for  SWAN. 

ix 

Counter  of  grid  points  in  x-direction. 

jy 

Counter  of  grid  points  in  y-direction. 

swpdir 

Current  sweep  direction. 

kwave 

Wave  number  as  function  of  the  relative  frequency 
S  and  position  ic  (ix,  iy). 

ac2 

(Non-stationary  case)  action  density  as  function  of 
D,  S,  X,  Y  at  time  T  +  DT. 

dep2 

(Non-stationary  case)  depth  as  a  function  of  X  and 
Y  at  time  T  +  DU. 

imatda 

Coefficients  of  diagonal  of  matrix. 

imatra 

Coefficients  of  right-hand  side  of  matrix. 

abrbot 

Near  bottom  excursion. 

kmespc 

Mean  average  wave  number  according  to  the 

WAM  formulation. 

smespc 

Mean  average  frequency  over  full  spectrum. 

ubot 

Absolute  orbital  velocity  in  a  grid  point  (ix,  iy). 

ufric 

Wind  friction  velocity. 

ux2 

(Non-stationary  case)  X-component  of  current 
velocity  in  (X,  Y)  at  time  T  +  DU. 

uy2 

(Non-stationary  case)  Y-component  of  current 
velocity  in  (X,  Y)  at  time  T  +  DU. 

idcmin 

Minimum  frequency  dependent  counter  in 
directional  space. 

idcmax 

Maximum  frequency  dependent  counter  in 
directional  space. 

iddlow 

Minimum  counter  per  sweep  taken  over  all 
frequencies. 

iddtop 

Maximum  counter  per  sweep  taken  over  all 
frequencies. 

idwmin 

Minimum  counter  for  spectral  wind  direction. 

idwmax 

Maximum  counter  for  spectral  wind  direction. 

isstop 

Maximum  frequency  that  is  propagated  within  a 
sweep. 

plwnda 

Values  of  source  term  for  test  point. 

plwndb 

Values  of  source  term  for  test  point. 

plwcap 

Array  containing  the  whitecapping  source  term  for 
test  output. 

plbtfr 

Bottom  friction  source  term  array  for  outputting  on 
one  of  the  source  terms  at  a  particular  grid  point. 

plwbrk 

Surf  breaking  source  term  array  for  outputting  on 
one  of  the  source  terms  at  a  particular  grid  point . 

pln)4s 

Nonlinear  source  term  array  (rhs  part)  for  outputting 
on  one  of  the  source  terms  at  a  particular  grid  point. 

pln!4d 

Nonlinear  source  term  array  (diagonal  part)  for 
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outputting  on  one  of  the  source  terms  at  a  particular 
grid  point. 

pltri 

Values  of  the  triad  source  terms  in  test  points. 

warea 

The  big  array  used  in  data  pool  scheme,  to  contain 
many  variables. 

hs 

Significant  wave  height. 

etot 

Total  energy  density  per  grid  point. 

qbloc 

Fraction  of  breaking  waves. 

thetaw 

Mean  direction  of  the  relative  wind  vector. 

hm 

Maximum  wave  height. 

fpm 

PM  frequency. 

wind 10 

Velocity  of  the  relative  wind  vector. 

etotw 

Total  energy  of  the  wind  sea  spectrum. 

groww 

Check  for  a  certain  frequency  if  the  waves  are 
growing  or  not  in  a  spectral  direction. 

alimw 

Maximum  energy  by  wind  growth. 

smebrk 

Mean  frequency  according  to  first  order  moment. 

snlcl 

Coefficient  for  the  subroutines  SWSNLN. 

fachfr 
dall,  dal2. 

Contribution  of  high  frequency  tail  to  wave  stress. 

dal3 

Lambda  dependent  weight  factors 

afll 

Scaling  frequency. 

ue 

"Unfolded"  spectrum. 

sal,  sa2 

dale,  dalp, 
dalm,  da2c. 

Interaction  contribution  of  first  and  second 
quadrants,  respectively  (unfolded  space). 

da2p,  da2m 

Items  for  diagonal  matrix. 

sfnl 

Source  term  Snl,  rhs  part. 

dsnl 

Source  term  Snl,  diag  part. 

memnl4 

Saves  sfnl  at  every  x,  y  point  in  memory. 

wwint 

Counters  for  four  wave- wave  interactions. 

wwawg 

Weight  coefficients  for  the  four  wave-wave 
interactions. 

wwswg 

Weights  coefficients  for  the  four  wave-wave 
interactions  for  the  semi-implicit  computation. 

ego 

Group  velocity. 

ustar 

Friction  velocity  at  previous  iteration  for  Janssen 
(1989,  1991)  wind  input  formulation. 

zelen 

Roughness  length  at  previous  iteration  for  Janssen 
(1989,  1991)  wind  input  formulation. 

spedir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 
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(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

anywnd 

Indicator  if  wind  input  has  to  be  taken  into  account 
for  a  bin. 

disscO 

(Not  used);  Stores  the  dissipation  distributed  over 
spectral  space  in  one  point  of  the  computational  grid 
(old  value). 

disscl 

(Not  used);  Dissipation  coefficient,  function  of 
sigma  and  theta. 

szeroc 

Not  used. 

eps2wc 

Not  used. 

diswcp 

Not  used. 

wcpsme 

Not  used. 

wcpkme 

Not  used. 

wcpqb 

Not  used. 

wcphm 

Not  used. 

xis 

Difference  between  succeeding  frequencies. 

frcoef 

Spatially  variable  friction  coefficient. 

it 

Timestep  counter  for  SWAN. 

precor 

Determines  whether  first  guess  estimate  for 
stationary  mode  is  calculated. 

ursell 

Ursell  number  as  function  of  ix  and  iy. 

5.3.6.13  Subroutine  SWCOMP 

Subroutine  SWCOMP  is  the  main  subroutine  for  the  computational  module.  In  subroutine 
SCOMPU  the  main  processes  taking  place  in  the  shallow  water  zone  are  determined  in 
several  subroutines.  The  input  for  this  subroutine  comes  from  SWANPRE1,  SWANPRE2 
and  SWANPRE3.  The  output  is  sent  to  the  subroutines  SWANOUT1,  SWANOUT2  and 
SWANOUT3.  The  output  consists  of  some  characteristic  wave  parameters  and  the  wave 
action  density.  The  equations  are  all  based  on  the  action  density  N,  which  is  a  function  of 
the  spatial  position  (x,  y),  the  relative  frequency(s)  and  the  spectral  direction(d). 

Calling  Sequence:  swcomp  (warea,  rwarea,  Iwarea,  acl ,  ac2,  compda,  spcdir,  spcsig, 
swtsda,  xytst,  it,  kgrpnt,  xcgrid,  ycgrid,  obsta,  cross) 


Data  Declaration: 

Real 

rwarea,  spcdir,  spcsig,  xcgrid,  ycgrid,  ac2,  acl, 
compda,  swtsda 

Logical 

Iwarea 

Integer 

it,  warea,  xytst,  kgrpnt,  obsta,  cross 

Arguments: 

rwarea 

Real  equivalence  of  warea. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 
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(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

acl  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

ac2  (Non-stationary  case)  action  density  as  function  of 

D,  S,  X,  Y  at  time  T  +  DT. 

warea  The  big  array,  used  in  data  pool  scheme,  to  contain 

many  variables. 

lwarea  Warea  for  logical  variable  storage, 

compda  Array  containing  depth  and  other  arrays  of  (ix,  iy). 

swtsda  Intermediate  data  computed  for  the  test  points, 

xytst  Test  points, 

it  Timestep  counter  for  SWAN, 

kgrpnt  Grid  point  addresses, 

obsta  Array  of  obstacle  parameters, 

cross  Array  which  contains  0's  if  there  is  no  obstacle 

crossing  if  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor  cross  is  equal  to  the 
number  of  the  obstacle. 

5.3.6.14  Subroutine  SWOMPU 

Subroutine  SWOMPU  computes  the  wave  spectrum  for  one  sweep  direction  and  is  called 
four  times  per  iteration. 

Calling  Sequence:  swompu  (swpdir,  ksx,  ksy,  ix,  iy,  ddx,  ddy,  dt,  snlcl ,  dal  1 ,  dal2, 
dal3,  xis,  swtsda,  inocnv,  ac2,  compda,  spcdir,  spcsig,  xytst,  iter, 
warea,  ego,  eg,  cax,  cay,  cas,  cad,  swmatr,  lswmat,  kwave,  alimw, 
groww,  afl  1,  ue,  sal,  sa2,  dale,  dalp,  dalm,  da2c,  da2p,  da2m, 
sfnl,  dsnl,  memnl4,  idemin,  idemax,  sector,  wwint,  wwawg, 
wwswg,  icolu2,  diflow,  difdig,  difupp,  difrhv,  band,  exact,  rhv, 
rinsol,  solut,  work,  precon,  upperi,  loperi,  infmat,  iinsol,  iscmin, 
iscmax,  anywnd,  acl,  it,  precor,  xcgrid,  ycgrid,  kgrpnt,  cross, 
obsta,  obredf,  caxl,  cayl) 

Data  Declaration:  Integer  iter,  it,  ix,  iy,  swpdir,  ksx,  ksy,  inocnv,  xytst,  warea, 

idemin,  idemax,  iscmin,  iscmax,  sector,  wwint, 
infmat,  iinsol,  kgrpnt,  obsta,  cross 
spcdir,  spcsig,  xcgrid,  ycgrid,  ddx,  ddy,  dt,  dall. 
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Arguments: 


dal2,  daI3,  xis,  ac2,  acl,  compda,  ego,  eg,  cax,  cay, 
caxl,  cayl,  cas,  cad,  alimw,  swmatr,  kwave,  afl  1, 
ue,  sal,  sa2,  dale,  dalp,  dalm,  da2c,  da2p,  da2m, 
sfnl,  dsnl,  memnl4,  swtsda,  wwawg,  wwswg, 
icolu2,  diflow,  difdig,  difupp,  difrhv,  band,  exact, 
rhv,  rinsol,  solut,  work,  precon,  upperi,  loperi, 
obredf 

Logical  Iswmat,  groww,  anywnd,  precor 


iter 

it 

spedir 


spesig 

xegrid 

yegrid 

Iswmat 

swpdir 

ksx 

ksy 

ix 

>y 

ddx 


ddy 

dt 

snlcl 

dall,  dal2, 
dal  3 
xis 

swtsda 

inocnv 

ac2 

compda 


Iteration  counter  for  SWAN. 

Timestep  counter  for  SWAN. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

X-coordinate  of  computational  grid  in  x-direction. 
Y-coordinate  of  computational  grid  in  y-direction. 
Logical  equivalence  of  swmatr. 

Current  sweep  direction. 

Dummy  variable  to  get  the  right  sign  in  the 
numerical  difference  scheme  in  x-direction. 

Dummy  variable  to  get  the  right  sign  in  the 
numerical  difference  scheme  in  y-direction. 

Counter  of  grid  points  in  x-direction. 

Counter  of  grid  points  in  y-direction. 

Length  of  spatial  cell  in  x-direction,  but  with 
correct  sign  depending  of  the  direction  of  the  sweep 
(+1  or  -1). 

Length  of  spatial  cell  in  y-direction,  but  with  the 
correct  sign  depending  of  the  direction  of  the  sweep 
(+1  or-1). 

Timestep. 

Coefficient  for  the  subroutine  SWSNLN. 

Lambda  dependent  weight  factors. 

Difference  between  succeeding  frequencies. 
Intermediate  data  computed  for  the  test  points. 
Counts  occurrence  of  nonconvergence  in  solver. 
(Non-stationary  case)  action  density  as  function  of 
D,  S,  X,  Y  at  time  T  +  DT. 

Array  containing  depth  and  other  arrays  of  (ix,  iy). 
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xytst 

warea 

ego 

eg 

cax 

cay 

cas 

cad 

swmatr 

kwave 

alimw 


groww 

afll 

ue 

sal,  sa2 

dale,  dalp, 
dalm,  da2c, 
da2p,  da2m 
sfnl 
dsnl 

memnl4 

idemin 

idemax 

sector 

wwint 

wwawg 

wwswg 


Test  points. 

The  big  array,  used  in  data  pool  scheme,  to  contain 
many  variables. 

Group  velocity  as  function  of  ic  and  is  in  the 
direction  of  wave  propagation  in  absence  of 
currents. 

Group  velocity  as  function  of  ic,  is  and  id  in 
the  direction  of  wave  propagation  in  presence  of 
currents. 

Wave  transport  velocity  in  x-direction,  function 
of  (id,  is,  ic). 

Wave  transport  velocity  in  y-direction,  function 
of  (id,  is,  ic). 

Wave  transport  velocity  in  s-direction,  function 
of  (id,  is,  ic). 

Wave  transport  velocity  in  d-direction,  function 
of  (id,  is,  ic). 

An  array  containing  several  variables  (for  data 
pool). 

Wave  number  as  function  of  the  relative 
frequency  S  and  position  ic  (ix,  iy). 

Maximum  energy  by  wind  growth.  This  dummy 
array  is  used  because  the  maximum  value  has  to  be 
checked  directly  after  the  solver  of  the  tri-diagonal 
matrix. 

Check  for  a  certain  frequency  if  the  waves  are 
growing  or  not  in  a  spectral  direction. 

Scaling  frequency. 

"Unfolded"  spectrum. 

Interaction  contribution  of  first  and  second 
quadrants,  respectively  (unfolded  space). 


Items  for  diagonal  matrix. 

Source  term  Snl,  RHS  part. 

Source  term  Snl,  DIAG  part. 

Saves  sfnl  at  every  x,y  point  in  memory. 
Frequency  dependent  counter  in  directional  space. 
Frequency  dependent  counter  in  directional  space. 
Indicates  which  configuration  is  present. 

Counters  for  four  wave-wave  interactions. 

Weight  coefficients  for  the  four  wave-wave 
interactions. 

Weights  coefficients  for  the  four  wave-wave 
interactions  for  the  semi-implicit  computation. 
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ico!u2  Auxiliary  array  for  storing  the  coefficients  in  the 

last  column. 

diflow  Lower  diagonal  in  solver  for  diffusion. 

difdig  Diagonal  in  solver  for  diffusion. 

difupp  Upper  diagonal  in  solver  for  diffusion. 

difrhv  Right-hand  vector. 

band  Matrix  from  the  equations  to  be  solved. 

exact  Exact  solution. 

rhv  Right-hand  side. 

rinsol  Real  information  for  the  solver. 

solut  Iterative  solution. 

work  Work  space. 

precon  Preconditioner. 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain, 

infmat  Integer  information  for  the  matrix, 

iinsol  Integer  information  for  the  solver, 

iscmin  Frequency  dependent  counter  in  frequency  space, 

iscmax  Frequency  dependent  counter  in  frequency  space, 

anywnd  Indicator  if  wind  input  has  to  be  taken  into  account 

for  a  bin. 

acl  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

precor  Determines  whether  first  guess  estimate  for 

stationary  mode  is  calculated, 
kgrpnt  Grid  point  addresses. 

cross  Array  which  contains  0’s  if  there  is  no  obstacle 

crossing  if  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor  cross  is  equal  to  the 
number  of  the  obstacle, 
obsta  Array  of  obstacle  parameters, 

obredf  Array  of  action  density  reduction  coefficients, 

caxl  Propagation  velocity  in  x  old  time  level, 

cayl  Propagation  velocity  in  y  old  time  level. 


5.3.7  Source  Terms  and  Dissipation  Subroutines  (swancom2  FOR  File) 

5.3.7.1  Subroutine  BRKPAR 

Subroutine  BRKPAR  determines  the  bottom  slope  in  upwave  direction  and  calculates  the 
slope  dependent  breaking  parameter  according  to  Nelson  (1987).  It  is  used  here  because 
Nelson  (1994)  has  an  error  present  in  the  equation. 

Calling  Sequence:  brkpar  (mdc,  msc,  ecos,  esin,  pi,  ac2,  spcsig,  dep2,  psurf,  msurf, 
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icmax,  etot,  kcgrd,  mcgrd,  rdx,  rdy) 

Data  Declaration:  Real  ac2,  ecos,  esin,  dep2,  psurf,  rdx,  rdy,  etot,  spcsig,  pi 

Integer  msc,  mdc,  msurf,  kcgrd,  mcgrd,  icmax 

Arguments:  mdc  Maximum  counter  of  directional  distribution. 

msc  Maximum  counter  of  relative  frequency. 

ecos  Cosine  of  angle. 

esin  Sine  of  angle. 

pi  3.14. 

ac2  Action  density. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 
dep2  Depth. 

psurf  Coefficients  for  breaking  module. 

msurf  Dimensioning  size  for  psurf. 

icmax  Maximum  number  of  elements  in  kcgrd. 

etot  Total  wave  energy  density  in  a  particular  direction. 

kcgrd  Grid  counter  in  central  grid  point. 

mcgrd  Maximum  counter  in  geographical  space. 

rdx,  rdy  Array  containing  spatial  derivative  coefficient. 

5.3.7.2  Subroutine  FRABRE 

Subroutine  FRABRE  computes  the  fraction  of  breaking  waves  in  point  (ix,  iy)  of  the 
computational  grid. 

Calling  Sequence:  frabre  (hm,  etot,  qbloc) 

Data  Declaration:  Real  hm,  etot,  qbloc 

Arguments:  etot  Total  energy  per  spatial  grid  point. 

qbloc  Second  iteration  of  the  fraction  of  breaking  waves, 

hm  Maximum  wave  height. 

5.3.7.3  Subroutine  FRABRE2 

Subroutine  FRABRE2  computes  the  fraction  of  breaking  waves  in  point  (ix,  iy)  of  the 
computational  grid. 

Calling  Sequence:  frabre2  (hm,  etot,  qbloc) 

Data  Declaration:  Real  hm,  etot,  qbloc 
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Arguments:  etot  Total  energy  per  spatial  grid  point. 

qbloc  Second  iteration  of  the  fraction  of  breaking  waves, 

hm  Maximum  wave  height. 

5.3.7.4  Subroutine  PLTSRC 

Subroutine  PLTSRC  stores  the  source  terms  for  the  TESTFL  grid  point  in  a  file. 

Calling  Sequence:  pltsrc  (plwnda,  plwndb,  plwcap,  plbtfr,  plwbrk,  plnl4s,  plnl4d, 
pltri,  ac2,  spcsig,  dep2,  xytst,  kgrpnt) 

Data  Declaration:  Real  ac2,  spcsig,  plwnda,  plwndb,  plwcap,  plbtfr,  plwbrk, 

plnl4s,  pln!4d,  pltri,  dep2 
Integer  xytst,  kgrpnt 

Arguments:  plwnda  Value  of  source  term  for  test  point. 

plwndb  Value  of  source  term  for  test  point, 

plwcap  Array  containing  the  whitecapping  source  term  for 

test  output. 

plbtfr  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

plwbrk  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

plnl4s  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

plnl4d  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

pltri  Value  of  the  triad  source  terms  in  test  points. 

ac2  Action  density. 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 
dep2  Depth, 

xytst  Test  points, 

kgrpnt  Grid  point  addresses. 

5.3.7.5  Subroutine  SBOT 

Subroutine  SBOT  provides  computation  of  the  source  terms  due  to  bottom  friction. 

Calling  Sequence:  sbot  (mdc,  msc,  icmax,  icur,  ibot,  grav,  abrbot,  dep2,  ecos,  esin, 

imatda,  kwave,  spcsig,  ubot,  ux2,  uy2,  pbot,  mbot,  idcmin,  idcmax, 
plbtfr,  isstop,  disscl,  varfr,  frcoef,  kcgrd,  mcgrd) 
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Data  Declaration:  Real 

Integer 

Logical 


spcsig,  grav,  abrbot,  dep2,  ecos,  esin,  imatda, 
kwave,  pbot,  plbtfr,  ubot,  ux2,  uy2,  disscl,  frcoef 
icur,  ibot,  mdc,  msc,  icmax,  mbot,  isstop,  mcgrd, 
kcgrd,  idcmin,  idcmax 
varfr 


Arguments:  spcsig 

mdc 

msc 

icmax 

icur 

ibot 

grav 

abrbot 

dep2 

ecos 

esin 

imatda 

kwave 

ubot 

ux2 

uy2 

pbot 

mbot 

idcmin 

idcmax 

plbtfr 

isstop 

disscl 

varfr 

frcoef 

kcgrd 

mcgrd 


Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

Maximum  counter  of  directional  distribution. 
Maximum  counter  of  relative  frequency. 

Maximum  counter  for  the  points  of  the  molecule. 
Indicator  if  a  current  is  present. 

Indicator  if  bottom  friction  is  on. 

Gravitational  acceleration. 

Near  bottom  excursion  amplitude. 

Depth. 

Cosine  per  spectral  direction  (id). 

Sine  per  spectral  direction  (id). 

Coefficients  of  diagonal  of  matrix. 

Wave  number  function  of  frequency  and  ic. 

Near  bottom  velocity  as  function  of  X,  Y. 

Current  velocity  in  x  direction  as  function  of  X,  Y. 
Current  velocity  in  y  direction  as  function  of  X,  Y. 
Coefficient  for  bottom  friction  models. 

Maximum  array  size  for  the  array  pbot. 

Minimum  number  for  counter  iddum. 

Maximum  number  for  counter  iddum. 

For  outputting  on  of  the  source  terms  at  a  particular 
grid  point. 

Maximum  counter  of  wave  component  in  frequency 
space  that  is  propagated. 

Dissipation  coefficient,  function  of  sigma  and  theta. 
Friction  is  spatially  varying. 

Spatially  variable  friction  coefficient. 

Grid  counter  in  central  grid  point. 

Maximum  counter  in  geographical  space. 


5.3.7.6  Subroutine  SSURF 

Subroutine  SSURF  provides  computation  of  the  source  term  due  to  wave  breaking. 
Whitecapping  is  not  taken  into  account. 

Calling  Sequence:  ssurf  (etot,  hm,  qb,  smebrk,  ac2,  imatra,  imatda,  idcmin,  idcmax. 
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plwbrk,  isstop,  disscO,  disscl) 

Data  Declaration:  Real  ac2,  disscO,  disscl ,  imatda,  imatra,  plwbrk,  etot, 

hm,  qb,  smebrk 

Integer  isstop,  idcmin,  idcmax 

Arguments:  ac2  Action  density  array. 

disscO  (Not  used);  Stores  the  dissipation  distributed  over 

spectral  space  in  one  point  of  the  computational  grid 
(old  value). 

disscl  (Not  used);  Dissipation  coefficient,  function  of 

sigma  and  theta. 

etot  Total  energy  per  spatial  grid  point. 

hm  Maximum  wave  height. 

idcmin  Minimum  number  for  counter  iddum. 

idcmax  Maximum  number  for  counter  iddum. 

imatda  Coefficient  of  diagonal  matrix. 

imatra  Coefficient  of  the  right-hand  side  of  the  matrix. 

isstop  Maximum  for  counter  is. 

plwbrk  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

Qb  Fraction  of  breaking  waves. 

smebrk  Mean  frequency  according  to  first  order  moment. 

5.3.7.7  Subroutine  SWCAP 

Subroutine  SWCAP  calculates  the  dissipation  due  to  whitecapping. 

Calling  Sequence:  swcap  (spcdir,  spcsig,  kwave,  ac2,  idcmin,  idcmax,  isstop,  etot, 
imatda,  imatra,  plwcap,  dep2) 

Data  Declaration:  Real  ac2,  dep2,  etot,  kwave,  spcdir,  spcsig,  plwcap, 

imatda,  imatra 

Integer  isstop,  idcmin,  idcmax 

Arguments:  spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

kwave  Wave  number. 
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ac2  Action  density  array, 

idcmin  Minimum  number  for  counter  iddum. 

idcmax  Maximum  number  for  counter  iddum. 

isstop  Maximum  for  counter  is. 

etot  Total  energy  per  spatial  grid  point, 

imatda  Coefficient  of  diagonal  matrix, 

imatra  Coefficient  of  right-hand  side  of  matrix, 

plwcap  Array  containing  the  whitecapping  source  term  for 

test  output. 

dep2  Array  containing  water  depth. 


5.3.8  Source  Terms  for  Generation  of  Wave  Energy  Subroutines  (swancom3  FOR 
File) 

5.3.8.1  Subroutine  SWINDO 


Subroutine  SWINDO  provides  computation  of  the  source  term  for  the  wind  input  for  a 
third  generation  wind  growth  model:  Linear  wind  input  term  according  to  Cavaleri  and 
Malanotte-Rizzoli  (1981). 

Calling  Sequence:  swindO  (mdc,  msc,  idcmin,  idcmax,  isstop,  spcsig,  thetaw,  grav,  pi, 
anywnd,  ufric,  fpm,  plwnda,  imatra,  spcdir,  kcgrd,  icmax,  pwind) 

Data  Declaration:  Real  fpm,  grav,  ufric,  thetaw,  pi,  imatra,  plwnda,  pwind, 

spcdir,  spcsig 

Integer  mdc,  msc,  idcmin,  idcmax,  isstop,  kcgrd 

Logical  anywnd 

Arguments:  mdc,  msc  Counters  in  spectral  space. 

idcmin  Frequency  dependent  minimum  counter, 

idcmax  Frequency  dependent  maximum  counter, 

isstop  Maximum  frequency  that  fall  within  a  sweep, 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

thetaw  Mean  direction  of  the  relative  wind  vector, 

grav  Gravitational  acceleration, 

pi  3.14. 

anywnd  Indicator  if  wind  input  has  to  be  taken  into  account 

for  a  bin. 

ufric  Wind  friction  velocity, 

fpm  PM  frequency, 

plwnda  Values  of  source  term  for  test  point, 
imatra  Coefficients  of  right-hand  side  of  vector. 
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spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
kcgrd  Grid  counter  in  central  grid  point, 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

pwind  Coefficient  for  the  wind  growth  model. 

5.3.8.2  Subroutine  SWIND3 

Subroutine  SWIND3  provides  computation  of  the  source  term  for  the  wind  input  for  a 
third  generation  wind  growth  model: 

Exponential  input  term,  (Snyder  et  al.  1981,  which  expression  has  been  modified 
by  Komen  et  al.  1984).  This  input  term  should  be  combined  with  the  dissipation 
term  of  Komen  et  al.  ( 1 984). 

Calling  Sequence:  swind3  (mdc,  msc,  spcsig,  thetaw,  imatda,  pwind,  mwind,  kwave, 
imatra,  pi,  idcmin,  idcmax,  ac2,  icmax,  ufric,  fpm,  plwndb,  isstop, 
spcdir,  anywnd,  kcgrd,  mcgrd) 

Data  Declaration:  Real  spcsig,  spcdir,  fpm,  ufric,  thetaw,  pi,  ac2,  imatda, 

kwave,  pwind,  plwndb 

Integer  mdc,  msc,  icmax,  mwind,  isstop,  mcgrd,  kcgrd, 

idcmin,  idcmax 
Logical  anywnd 

Arguments:  mdc,  msc  Counters  in  spectral  space. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

thetaw  Mean  direction  of  the  relative  wind  vector, 

imatda  Coefficients  of  the  diagonal, 

pwind  Coefficient  for  thw  wind  growth  model, 

mwind  Maximum  array  size  for  pwind. 

kwave  Wave  number. 

imatra  Coefficients  of  right-hand  side  of  matrix, 

pi  3.14. 

idcmin  Frequency  dependent  minimum  counter, 

idcmax  Frequency  dependent  maximum  counter. 

ac2  Action  density  as  function  of  X,  Y,  S,  and  T. 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

ufric  Wind  friction  velocity. 
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fpm  PM  frequency, 

plwndb  Values  of  source  term  for  test  point, 
isstop  Maximum  frequency  that  fall  within  a  sweep, 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
anywnd  Indicator  if  wind  input  has  to  be  taken  into  account 
for  a  bin. 

kcgrd  Grid  counter  in  central  grid  point, 

mcgrd  Maximum  counter  in  geographical  space. 

5.3.8.3  Subroutine  SWIND4 

Subroutine  SWIND4  provides  computation  of  the  source  term  for  the  wind  input  for  a 
third  generation  wind  growth  model: 

Computation  of  the  exponential  input  term  based  on  a  quasi-linear  theory 
developed  by  Janssen  (1989,  1991a).  This  formulation  should  be  used  in 
combination  with  the  whitecapping  dissipation  source  term  according  to  Janssen 
(1991a  and  b)  and  Mastenbroek  et  al.  (1993). 

Calling  Sequence:  swind4  (mdc,  msc,  icmax,  idwmin,  idwmax,  spcsig,  wind  10, 

thetaw,  pwind,  xis,  mwind,  dd,  kwave,  grav,  imatra,  pi,  idcmin, 
idcmax,  ac2,  ufric,  plwndb,  isstop,  iter,  ustar,  zelen,  spcdir, 
anywnd,  nstatc,  it,  precor,  kcgrd,  mcgrd) 

Data  Declaration:  Real  spcsig,  spcdir,  grav,  thetaw,  wind  10,  ufric,  ac2, 

imatra,  kwave,  pwind,  plwndb,  ustar,  zelen,  pi,  xis, 
dd 

Integer  idwmax,  idwmin,  mdc,  msc,  isstop,  icmax,  mwind, 

mcgrd,  nstatc,  kcgrd,  idcmin,  idcmax,  it 
Logical  anywnd,  precor 

Arguments:  mdc,  msc  Counters  in  spectral  space. 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

idwmin  Minimum  counter  for  spectral  wind  direction, 

idwmax  Maximum  counter  for  spectral  wind  direction, 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

thetaw  Mean  direction  of  the  relative  wind  vector. 

windlO  Velocity  of  the  relative  wind  vector. 
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pwind 

Coefficient  for  the  wind  growth  model. 

xis 

Difference  between  succeeding  frequencies. 

mwind 

Maximum  array  size  for  pwind. 

dd 

Directional  band  width. 

kwave 

Wave  number. 

grav 

Gravitational  acceleration. 

imatra 

Coefficients  of  the  right-hand  side  of  matrix. 

P' 

3.14. 

idcmin 

Frequency  dependent  minimum  counter. 

idcmax 

Frequency  dependent  maximum  counter. 

ac2 

Action  density  as  function  of  X,  Y,  S,  and  T. 

ufric 

Wind  friction  velocity. 

plwndb 

Values  of  source  term  for  test  point. 

isstop 

Maximum  frequency  that  fall  within  a  sweep. 

iter 

Iteration  counter  for  SWAN. 

ustar 

Friction  velocity  at  previous  iteration  level. 

zelen 

Roughness  length  at  previous  iteration  level. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

anywnd 

Indicator  if  wind  input  has  to  be  taken  into  account 
for  a  bin. 

nstatc 

Indicator  if  computation  is  stationary. 

it 

Timestep  counter  for  SWAN. 

precor 

Determines  whether  first  guess  estimate  for 
stationary  mode  is  calculated. 

kcgrd 

Grid  counter  in  central  grid  point. 

mcgrd 

Maximum  counter  in  geographical  space. 

53.8.4  Subroutine  SWIND5 

Subroutine  SWEND5  provides  computation  of  the  source  term  for  the  wind  input  for  a 
third  generation  wind  growth  model: 

The  exponential  input  term  is  according  to  Yan  (1987).  This  input  term  is  valid 
for  the  higher  frequency  part  of  the  spectrum  (strongly  forced  wave  components) 
The  expression  reduces  to  the  Snyder  (1981)  expression  form  for  spectral  wave 
components  with  weak  wind  forcing  and  to  the  Plant  (1982)  form  for  more 
strongly  forced  wave  components. 
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Calling  Sequence:  swind5  (mdc,  msc,  spcsig,  thetaw,  isstop,  ufric,  kwave,  imatra,  pi, 
idcmin,  idcmax,  ac2,  icmax,  anywnd,  plwndb,  spcdir,  kcgrd, 
mcgrd) 


Data  Declaration:  Real 

Integer 

Logical 


spcsig,  spcdir,  ac2,  pi,  ufric,  thetaw,  imatra,  kwave, 
plwndb 

kcgrd,  mcgrd,  idcmin,  idcmax,  icmax,  isstop,  mdc, 

msc 

anywnd 


Arguments: 


mdc,  msc 
spcsig 

thetaw 

isstop 

ufric 

kwave 

imatra 

P> 

idcmin 

idcmax 

ac2 

icmax 

anywnd 

plwndb 

spcdir 


kcgrd 

mcgrd 


Counters  in  spectral  space. 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

Mean  direction  of  the  relative  wind  vector. 
Maximum  frequency  that  fall  within  a  sweep. 
Wind  friction  velocity. 

Wave  number. 

Coefficients  of  right-hand  side  of  matrix. 

3.14. 

Frequency  dependent  minimum  counter. 

Frequency  dependent  maximum  counter. 

Action  density  as  function  of  X,  Y,  S,  and  T. 
Maximum  counter  for  the  points  of  the  molecule. 
Indicator  if  wind  input  has  to  be  taken  into  account 
for  a  bin. 

Values  of  source  term  for  test  point. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Grid  counter  in  central  grid  point. 

Maximum  counter  in  geographical  space. 


5.3.8.5  Subroutine  WNDPAR 

Subroutine  WNDPAR  provides  computation  of  the  wind  input  source  term  with 
formulations  of  a  first-generation  model  (constant  proportionality  coefficient)  and  a 
second-generation  model  (proportionality  coefficient  depends  on  the  energy  in  the  wind 
sea  part  of  the  spectrum).  The  expressions  are  from  Holthuijsen  and  De  Boer  (1988)  and 
from  the  DOLPHIN-B  model.  During  the  implementation  of  the  terms,  modifications  to 
the  code  have  been  made  after  personal  communications  with  Holthuijsen  and  Booij. 
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Calling  Sequence:  wndpar  (isstop,  idwmin,  idwmax,  idcmin,  idcmax,  dep2,  windlO, 
thetaw,  ac2,  kwave,  imatra,  imatda,  spcsig,  ego,  alimw,  groww, 
etotw,  plwnda,  plwndb,  spedir,  iter) 

Data  Declaration:  Real  spedir,  spcsig,  windlO,  thetaw,  etotw,  ac2,  alimw, 

imatda,  imatra,  kwave,  plwnda,  plwndb,  dep2,  ego 
Integer  iter,  idwmin,  idwmax,  iddum,  isstop,  idcmin, 

idcmax 

Logical  groww 

Arguments:  spedir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

isstop  Counter  for  the  maximum  frequency  of  all 

directions. 

idwmin  Minimum  counter  for  spectral  wind  direction, 

idwmax  Maximum  counter  for  spectral  wind  direction, 

idcmin  Minimum  counter  in  directional  space, 

idcmax  Maximum  counter  in  directional  space. 

dep2  Depth. 

windlO  Velocity  of  the  relative  wind  vector, 
thetaw  Mean  direction  of  the  relative  wind  vector. 

ac2  Action  density  as  function  of  D,  S,  X,  Y  and  T. 

kwave  Wave  number. 

imatra  Coefficient  of  right-hand  side  of  vector, 

imatda  Coefficient  of  the  diagonal, 

ego  Group  velocity. 

alimw  Limiting  spectrum  in  terms  of  action  density, 

groww  Array  to  determine  whether  there  are  wave 

generation  conditions. 

etotw  Total  energy  of  the  wind  sea  part  of  the  spectrum, 

plwnda  Value  of  source  term  for  test  point, 

plwndb  Value  of  source  term  for  test  point, 

iter  Iteration  counter  for  SWAN. 

5.3.8.6  Subroutine  WINDP1 

Subroutine  WINDP1  provides  computation  of  parameters  derived  from  the  wind  for 
several  subroutines  such  as  SWIND1,  SWIND2,  SWIND3  and  CUTOFF. 
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Calling  Sequence:  windpl  (windlO,  thetaw,  idwmin,  idwmax,  fpm,  ufric,  wx2,  wy2, 
anywnd,  spcdir,  ux2,  uy2,  spcsig 

Data  Declaration:  Real  spcsig,  spcdir,  windlO,  thetaw,  ufric,  fpm,  wx2, 

wy2,  ux2,  uy2 

Integer  idwmin,  idwmax 

Logical  anywnd 


Arguments: 


windlO  Velocity  of  the  relative  wind  vector, 

thetaw  Mean  direction  of  the  relative  wind  vector, 

idwmin  Minimum  counter  for  spectral  wind  direction, 

idwmax  Maximum  counter  for  spectral  wind  direction, 

fpm  PM  frequency, 

ufric  Wind  friction  velocity. 

wx2,  wy2  Wind  velocity  array  relative  to  a  current, 
anywnd  Indicator  if  wind  input  has  to  be  taken  into  account 
for  a  bin. 

ux2  (Non-stationary  case)  X-component  of  current 

velocity  in  (X,  Y)  at  time  T  +  DU. 
uy2  (Non-stationary  case)  Y-component  of  current 

velocity  in  (X,  Y)  at  time  T  +  DU. 
spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 


5.3.8.7  Subroutine  WINDP2 

Subroutine  WINDP2  provides  computation  of  the  wind  sea  energy  spectrum  for  the 
second-generation  wind  growth  model. 

Calling  Sequence:  windp2  (idwmin,  idwmax,  sigpkd,  fpm,  etotw,  ac2,  spcsig, 
windlO) 

Data  Declaration:  Integer  idwmin,  idwmax 

Real  spcsig,  etotw,  fpm,  ac2,  sigpkd,  windlO 


Arguments: 


idwmin 

idwmax 


Minimum  counter  for  spectral  wind  direction. 
Maximum  counter  for  spectral  wind  direction. 
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sigpkd 

fpm 

etotw 


spcsig 


windlO 


Adapted  peak  frequency  for  shallow  water. 

PM  frequency. 

Total  energy  of  the  wind  sea  part  of  the  spectrum. 
Action  density  as  function  of  D,  S,  X,  Y  and  T. 
Relative  frequencies  in  computational  domain  in 
sigma  space. 

Velocity  of  the  relative  wind  vector. 


53.8.8 


Subroutine  WINDP3 


Subroutine  WINDP3  reduces  the  energy  density  in  the  spectral  direction  directly  after 
solving  the  tri-diagonal  matrix,  if  the  energy  density  level  is  larger  than  the  upper  bound 
limit  given  by  a  Pierson  Moskowitz  spectrum.  This  is  only  carried  out  if  a  particular  wave 
component  is  “growing”.  If  the  energy  density  in  a  bin  is  larger  than  the  upper  bound 
limit  (for  instance  when  crossing  wind  seas  are  present)  then  the  energy  density  level  is  a 
lower  limit. 


Calling  Sequence: 


Data  Declaration: 


Arguments: 


windp3  (mdc,  msc,  isstop,  alimw,  ac2,  groww,  idcmin,  idcmax, 
kcgrd,  mcgrd,  icmax) 


Real 

Integer 

Logical 

mdc,  msc 

isstop 

alimw 


ac2 

groww 


idcmin 

idcmax 

kcgrd 

mcgrd 

icmax 


ac2,  alimw 

mdc,  msc,  mcgrd,  icmax,  idcmin,  idcmax,  kcgrd, 

isstop 

groww 

Counters  in  spectral  space. 

Maximum  frequency  that  falls  within  a  sweep. 
Contains  the  action  density  upper  bound  limit 
regarding  spectral  action  density  per  spectral  bin 
(A(s,  t)). 

Action  density  as  function  of  X,  Y,  S,  and  T. 
Logical  array  which  determines  if  there  is 

a)  generation  (E  <  EJim  ->  True)  or 

b)  dissipation  (E  >  EJim  ->  False). 

Frequency  dependent  minimum  counter. 
Frequency  dependent  maximum  counter. 

Grid  counter  in  central  grid  point. 

Maximum  counter  in  geographical  space. 
Maximum  counter  for  the  points  of  the  molecule. 
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5.3.9  Nonlinear  Four  Wave-wave  Interaction  Subroutines  (swancom4  FOR  File) 

5.3.9.1  Subroutine  BND4WW 

Subroutine  BND4WW  computes  the  array  size  for  the  nonlinear  four-wave  interactions  in 
order  to  allocate  some  memory  in  the  warea. 

Calling  Sequence:  bnd4ww  (mscmax,  mdcmax,  spcsig) 

Data  Declaration:  Real  spcsig 

Integer  mscmax,  mdcmax 

Arguments:  mscmax  Auxiliary  variable  for  the  4-WAVE  interactions  to 

allocate  required  memory  in  the  warea. 
mdcmax  Auxiliary  variable  for  the  4-WAVE  interactions  to 
allocate  required  memory  in  the  warea. 
spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

5.3.9.2  Subroutine  FAC4WW 

Subroutine  FAC4WW  calculates  interpolation  constants  for  snl. 

Calling  Sequence:  fac4ww  (iter,  xis,  snlcl,  dall,  dal2,  dal3,  spcsig,  afl  1,  wwint, 
wwawg,  wwswg) 

Data  Declaration:  Real  spcsig,  afl  1 ,  xis,  snlc  1 ,  wwawg,  wwswg,  dal  1 ,  dal2, 

dal3 

Integer  iter,  wwint 

Arguments:  iter  Iteration  number. 

xis  Difference  between  succeeding  frequencies, 

snlcl  Coefficient  for  the  subroutines  SWSNLN. 

dall,  dal2, 

dal3  Lambda  dependent  weight  factors, 

spcsig  Relative  frequencies  in  computational  domain 

sigma  space. 

afl  1  Scaling  frequency, 

wwint  Counters  for  four-wave  interactions, 

wwawg  Values  for  the  interpolation, 

wwswg  Values  for  the  interpolation. 
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5.3.9.3  Subroutine  FILNL3 

Subroutine  FILNL3  fills  the  imatra  array  with  the  nonlinear  wave-wave  interaction 
source  term  for  a  grid  point  (ix,  iy )  per  sweep  direction. 

Calling  Sequence:  filnl3  (mdc,  msc,  idcmin,  idcmax,  imatra,  memnl4,  pln!4s,  isstop, 
kcgrd,  mcgrd,  icmax) 


Data  Declaration:  Real 

imatra,  memnl4,  plnl4s 

Integer 

mdc,  msc,  idcmin,  idcmax,  isstop,  kcgrd,  mcgrd, 
icmax 

Arguments: 

mdc 

Grid  points  in  theta-direction  of  computational  grid. 

msc 

Grid  points  in  sigma-direction  of  computational 
grid. 

idcmin 

Minimum  frequency  dependent  counter  in 
directional  space. 

idcmax 

Maximum  frequency  dependent  counter  in 
directional  space. 

imatra 

Coefficient  of  the  right-hand  side  of  the  matrix. 

memnl4 

Saves  sfnl  at  every  x,y  point  in  memory. 

plnl4s 

For  outputting  on  of  the  source  terms  at  a  particular 
grid  point. 

isstop 

Maximum  frequency  that  is  propagated  within  a 
sweep. 

kcgrd 

Grid  address  of  points  of  computational  stencil. 

mcgrd 

Number  of  wet  grid  points  of  the  computational 
grid. 

icmax 

Number  of  points  in  computational  stencil. 

5.3.9.4 

Subroutine  RANGE4 

Subroutine  RANGE4  calculates  the  minimum  and  maximum  counters  in  frequency  and 
directional  space  that  fall  with  the  calculation  for  the  nonlinear  wave-wave  interactions. 

Calling  Sequence:  range4  (wwint,  iddlow,  iddtop) 

Data  Declaration:  Integer  wwint,  iddlow,  iddtop 

Arguments:  wwint  Counters  for  four-wave  interactions. 

iddlow  Minimum  counter  of  the  bin  that  is  propagated 

within  a  sweep. 

iddtop  Maximum  counter  of  the  bin  that  is  propagated 

within  a  sweep. 


102 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


5.3.9.5  Subroutine  STRIAD 

Subroutine  STRIAD  models  the  triad  self-interaction  based  on  Boussinesq  equation. 

Calling  Sequence:  striad  (ac2,  dep2,  ego,  imatra,  kwave,  hs,  iddlow,  iddtop,  spesig, 
smebrk,  imatda,  pltri,  ursell) 

Data  Declaration:  Real  ac2,  dep2,  ego,  imatra,  kwave,  hs,  spesig,  imatda, 

ursell,  pltri 

Integer  iddlow,  iddtop 

Arguments:  ac2  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

dep2  Depth  at  (ix,  iy). 

ego  Group  velocity, 

imatra  Right-hand  vector, 

kwave  Wave  number, 

hs  Significant  wave  height, 

iddlow  Minimum  counter  in  directional  space, 

iddtop  Maximum  counter  in  directional  space, 

spesig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

smebrk  Mean  frequency  according  to  first  order  moment, 

imatda  Coefficient  of  diagonal  matrix, 

pltri  Values  of  the  triad  source  terms  in  test  points, 

ursell  Ursell  number  as  function  of  ix  and  iy. 

53.9.6  Subroutine  STRIAN 

Subroutine  STRIAN  calculates  triad-wave  interactions  with  the  LTA  of  Eldeberky 
(1996).  His  expression  that  is  based  on  a  parameterization  of  the  biphase  (in  terms  of  the 
ursell  number)  is  directionally  uncoupled  and  takes  into  account  for  self-self  interactions 
only.  For  a  full  description  of  the  equations  reference  is  made  to  Eldeberky  (1996).  Only 
the  main  equations  are  given  here. 

Calling  Sequence:  strian  (ac2,  dep2,  ego,  imatra,  kwave,  hs,  iddlow,  iddtop,  spesig, 
smebrk,  imatda,  pltri,  ursell) 

Data  Declaration:  Real  ac2,  dep2,  ego,  imatra,  kwave,  hs,  spesig,  smebrk, 

imatda,  pltri,  ursell 
Integer  iddlow,  iddtop 
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Arguments: 


ac2 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

dep2 

Depth  at  grid  point  (ix,  iy ). 

ego 

Group  velocity. 

imatra 

Right-hand  vector. 

kwave 

Wave  number. 

hs 

Significant  wave  height. 

iddlow 

Minimum  counter  in  directional  space. 

iddtop 

Maximum  counter  in  directional  space. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

smebrk 

Mean  frequency. 

imatda 

Diagonal  of  matrix. 

pltri 

Values  of  the  triad  source  terms  in  test  points. 

ursell 

Ursell  number  as  function  of  ix  and  iy. 

5.3.9.7  Subroutine  SWSNL1 


Subroutine  SWSNL1  calculates  a  non-linear  interaction  using  the  discrete  interaction 
approximation  (Hasselmann  and  Hasselmann  1985;  WAMDI  group,  1988),  including  the 
diagonal  term  for  the  implicit  integration.  The  interactions  are  calculated  for  all  bins  that 
fall  within  a  sweep.  No  additional  auxiliary  array  is  required. 


Calling  Sequence:  swsnl  1  (wwint,  wwawg,  wwswg,  idcmin,  idcmax,  af  1 1 ,  ue,  sal , 
sa2,  daic,  dalp,  dalm,  da2c,  da2p,  da2m,  spcsig,  snlcl,  kmespc, 
fachfr,  isstop,  dall,  dal2,  dal3,  sfnl,  dsnl,  dep2,  ac2,  imatda,  imatra, 
plnl4s,  pln!4d,  iddlow,  iddtop) 


Data  Declaration: 


Arguments: 


Real 

wwawg,  wwswg,  spcsig,  afl  1,  dale,  dalp,  dalm, 
da2c,  da2p,  da2m,  sal,  sa2,  ue,  snlcl,  dall,  dal2, 
dal3,  sfnl,  dsnl,  dep2,  ac2,  imatda,  imatra,  plnl4s, 
plnI4d,  fachfr,  kmespc 

Integer 

wwint,  idcmin,  idcmax,  iddlow,  iddtop,  isstop 

wwint 

Counters  for  four-wave  interactions. 

wwawg 

Values  for  the  interpolation. 

wwswg 

Values  for  the  interpolation. 

idcmin 

Minimum  frequency  dependent  counter  in 
directional  space. 

idcmax 

Maximum  frequency  dependent  counter  in 
directional  space. 

spcsig 

Relative  frequencies  in  computational  domain 
sigma  space. 

afl  1 

Scaling  frequency. 

ue 

"Unfolded"  spectrum. 
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sal ,  sa2  (Array)  Interaction  contribution  of  first  and  second 
quadrants,  respectively  (unfolded  space). 

dale,  dalp, 
dalm,  da2c, 

da2p,  da2m  Items  for  diagonal  matrix, 
snlcl  Coefficient  for  the  subroutines  SWSNLN. 

kmespc  Mean  average  wave  number  according  to  the 

WAM  formulation. 

fachfr  Contribution  of  high  frequency  tail  to  wave  stress, 

isstop  Maximum  frequency  that  is  propagated  within  a 

sweep. 

dal  1 ,  dal2, 

dal3  Lambda  dependent  weight  factors, 

sfnl  Source  term  Snl,  RHS  part, 

dsnl  Source  term  Snl,  DIAG  part. 

dep2  Depth. 

ac2  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

imatda  Coefficient  of  the  diagonal  of  the  matrix, 

imatra  Coefficient  of  the  right-hand  side  of  the  matrix. 

plnl4s  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

plnl4d  For  outputting  on  of  the  source  terms  at  a  particular 

grid  point. 

iddlow  Minimum  counter  of  the  bin  that  is  propagated 

within  a  sweep. 

iddtop  Maximum  counter  of  the  bin  that  is  propagated 

within  a  sweep. 

5.3.9.8  Subroutine  SWSNL2 

Subroutine  SWSNL2  calculates  non-linear  interaction  using  the  discrete  interaction 

approximation  (Hasselmann  and  Hasselmann  1985;  WAMDI  group,  1988). 

Calling  Sequence:  swsnl2  (iddlow,  iddtop,  wwint,  wwawg,  af  1 1 ,  ue,  sal ,  isstop,  sa2, 
spcsig,  snlcl,  dall,  dal2,  dal3,  sfnl,  dep2,  ac2,  kmespc,  imatra, 
fachfr,  plnl4s,  idcmin,  idcmax) 

Data  Declaration:  Real  wwawg,  af  1 1 ,  ue,  sal ,  sal ,  spcsig,  snlc  1 ,  dal  1 ,  dal2, 

dal3,  sfnl,  dep2,  ac2,  kmespc,  imatra,  fachfr,  plnl4s 
Integer  iddlow,  iddtop,  wwint,  isstop,  idcmin,  idcmax 

Arguments:  iddlow  Minimum  counter  of  the  bin  that  is  propagated 

within  a  sweep. 
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iddtop 

Maximum  counter  of  the  bin  that  is  propagated 
within  a  sweep. 

wwint 

Counters  for  four-wave  interactions. 

wwawg 

Values  for  the  interpolation. 

afl  1 

Scaling  frequency. 

ue 

"Unfolded"  spectrum. 

sal, sa2 

Interaction  contribution  of  first  and  second 
quadrants,  respectively  (unfolded  space). 

isstop 

Maximum  frequency  that  is  propagated  within  a 
sweep. 

spcsig 

Relative  frequencies  in  computational  domain 
sigma  space. 

snlcl 

dall,  dal2. 

Coefficient  for  the  subroutines  SWSNLN. 

dal  3 

Lambda  dependent  weight  factors. 

sfnl 

Source  term  Snl,  RHS  part. 

dep2 

Depth. 

ac2 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

kmespc 

Mean  average  wave  number  according  to  the 

WAM  formulation. 

imatra 

Coefficient  of  right-hand  side  of  matrix. 

fachfr 

Contribution  of  high  frequency  tail  to  wave  stress. 

plnl4s 

For  outputting  on  of  the  source  terms  at  a  particular 
grid  point. 

idcmin 

Minimum  frequency  dependent  counter  in 
directional  space. 

idcmax 

Maximum  frequency  dependent  counter  in 
directional  space. 

53.9.9  Subroutine  SWSNL3 

Subroutine  SWSNL3  calculates  non-linear  interaction  using  the  discrete  interaction 
approximation  (Hasselmann  and  Hasselmann  1985;  WAMDI  group,  1988)  for  the  full 
circle  (option  if  a  current  is  present).  Using  this  subroutine  requires  an  additional  array 
with  size  (MXC*MYC*MDC*MSC).  Although  it  requires  more  internal  memory,  if  a 
current  is  present,  it  can  speed  up  the  computations  significantly. 

Calling  Sequence:  swsn!3  (mdc,  msc,  wwint,  wwawg,  afl  1,  ue,  sal,  sa2,  spcsig,  snlcl, 
dall,  dal2,  daI3,  sfnl,  dep2,  ac2,  kmespc,  memn!4,  facher,  pi, 
msc4mi,  msc4ma,  mdc4mi,  mdc4ma,  kcgrd,  mcgrd,  icmax 

Data  Declaration:  Real  wwawg,  afl  1 ,  ue,  sal ,  sa2,  spcsig,  snlcl ,  dall ,  dal2, 

da!3,  sfnl,  dep2,  ac2,  kmespc,  memnl4,  facher,  pi. 
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Arguments: 


Integer  wwint,  msc4mi,  msc4ma,  mdc4mi,  mdc4ma,  kcgrd, 

mcgrd,  icmax,  mdc,  msc 


mdc 

msc 

wwint 

wwawg 

afll 

ue 

sal,  sa2 

spcsig 

snlcl 

dall,  dal2, 

dal3 

sfnl 

dep2 

ac2 

kmespc 

memnl4 

fachfr 

Pi 

msc4mi 

msc4ma 

mdc4rni 

mdc4ma 

kcgrd 

mcgrd 

icmax 


Grid  points  in  theta-direction  of  computational  grid. 
Grid  points  in  sigma-direction  of  computational 
grid. 

Counters  for  four-wave  interactions. 

Values  for  the  interpolation. 

Scaling  frequency. 

"Unfolded"  spectrum. 

Interaction  contribution  of  first  and  second 
quadrants,  respectively  (unfolded  space). 

Relative  frequencies  in  computational  domain 
sigma  space. 

Coefficient  for  the  subroutine  SWSNLN. 

Lambda  dependent  weight  factors. 

Source  term  Snl,  RHS  part. 

Depth. 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 
Mean  average  wave  number  according  to  the 
WAM  formulation. 

Saves  sfnl  at  every  x,y  point  in  memory. 
Contribution  of  high  frequency  tail  to  wave  stress. 
3.14. 

Lowest  array  counter  in  frequency  space. 

Highest  array  counter  in  frequency  space. 

Lowest  array  counter  in  directional  space. 

Highest  array  counter  in  directional  space. 

Grid  address  of  points  of  computational  stencil. 
Number  of  wet  grid  points  of  the  computational 
grid. 

Number  of  points  in  computational  stencil. 


5.3.10  Subroutines  for  the  Propagation  in  X,  Y,  S,  D  Space  and  Parameters 
(swancom5  FOR  File) 

5.3.10.1  Subroutine  ADDDIS 

Subroutine  ADDDIS  adds  dissipation  and  leak. 

Calling  Sequence:  adddis  (msc,  mdc,  ddir,  frintf,  dissxy,  leakxy,  ac2,  anybin,  discO, 
disci,  leakcl,  spcsig,  kcgrd,  mcgrd,  icmax) 
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Data  Declaration:  Real  ddir,  frintf,  dissxy,  leakxy,  ac2,  discO,  disci,  leakcl , 

spcsig 

Integer  msc,  mdc,  mcgrd,  kcgrd,  icmax 

Logical  anybin 

Arguments:  msc  Maximum  counter  of  relative  frequency. 

mdc  Maximum  counter  of  directional  distribution, 

ddir  Spectral  direction  band  width, 

frintf  Frequency  integration  factor, 

dissxy  Dissipation  integrated  over  the  spectrum  for  each 

point  in  the  computational  grid. 

leakxy  Leak  integrated  over  the  spectrum  for  each  point  in 

the  computation  grid. 

ac2  Action  density  as  function  of  D,  S,  X,  Y  and  T. 

anybin  Determines  if  a  bin  falls  within  a  sweep. 

disscO  (Not  used);  Stores  the  dissipation  distributed  over 

spectral  space  in  one  point  of  the  computational  grid 
(old  value). 

dissc  1  (Not  used);  Stores  the  dissipation  distributed  over 

spectral  space  in  one  point  of  the  computational  grid 
(new  value). 

leakcl  Leak  coefficient. 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

kcgrd  Grid  counter  in  central  grid  point. 

mcgrd  Maximum  counter  in  geographical  space. 

icmax  Maximum  array  size  for  the  points  of  the  molecule. 

5.3.10.2  Subroutine  DSPHER 

Subroutine  DSPHER  computes  the  propagation  velocities  of  energy  in  theta-space,  i.e., 

CAD,  due  to  the  use  of  spherical  coordinates. 

Calling  Sequence:  dspher  (cad,  eg,  anybin,  yegrid,  ecos) 

Data  Declaration:  Real  cad,  eg,  ecos,  yegrid 

Logical  anybin 

Arguments:  cad  Wave  transport  velocity  in  D-direction,  function 

(id,  is,  ic). 

eg  Group  velocity  as  function  of  sigma  and  theta  in 

the  direction  of  wave  propagation  in  absence  of 
currents. 
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anybin  If  true  the  spectral  component  (id,  is)  is  to  be 

computed. 

ycgrid  Y-coordinate  (latitude)  for  each  geographic  grid 

point. 

ecos  Represent  the  values  of  cos(theta)  of  each  spectral 

direction. 

5.3.10.3  Subroutine  SANDL 

Subroutine  SANDL  computes  the  space  derivative  of  action  transport. 

Calling  Sequence:  sandl  (isstop,  idcmin,  idcmax,  ego,  cax,  cay,  ac2,  acl,  imatra, 
imatda,  rdx,  rdy,  caxl,  cayl,  spedir) 

Data  Declaration:  Real  ego,  cax,  cay,  ac2,  ac  1 ,  imatra,  imatda,  rdx,  rdy, 

caxl, cay2, spedir 

Integer  isstop,  idcmin,  idcmax 

Arguments:  isstop  Highest  spectral  frequency  counter  in  the  sweep. 

idcmin  Minimum  value  of  direction  counter  in  this  sweep, 

idcmax  Maximum  value  of  direction  counter  in  this  sweep, 

ego  Group  velocity. 

cax  Propagation  velocity  in  x  new  time  level, 

cay  Propagation  velocity  in  y  new  time  level. 

ac2  Spectral  action  density,  function  of  x,  y,  theta,  and 

sigma. 

acl  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

imatra  Coefficients  of  right-hand  side  of  matrix, 

imatda  Coefficients  of  diagonal  of  matrix, 

rdx,  rdy  Containing  spatial  derivative  coefficient, 

caxl  Propagation  velocity  in  x  old  time  level, 

cayl  Propagation  velocity  in  y  old  time  level, 

spedir  Spectral  directions. 


5.3.10.5  Subroutine  SORDUP 

Subroutine  SORDUP  computes  the  space  derivative  of  action  transport  using  the 
SORDUP  scheme.  This  is  for  stationary  calculations  only  (no  time  derivative).  Delft 
Hydraulics  scientists  suggest  that  the  implementation  of  a  modified  form  of  the  scheme, 
in  which  the  model  user  has  the  option  for  using  a  non-zero  value  for  THETAK,  be  used 
as  a  means  to  eliminate  wiggles. 
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To  summarize: 

With  THETAK  =  0,  the  scheme  is  second  order  accurate. 

With  THETAK  =  0,  the  scheme  reduces  to  the  "best"  approximation  of  d/dx  which  can  be 
determined  using  Taylor  Series  for  the  stencil  (IX),  (IX- 1),  (IX-2):  3/2*mu*phi(IX)- 
2*mu*phi(IX-l)  +  l/2*mu*phi(IX-2). 

With  a  non-zero  THETAK,  the  scheme  is  only  first  order  accurate,  and  is  only 
approximately  mass  conserving  (mass  balance  error  is  slight). 

With  a  negative  THETAK,  the  scheme  has  positive  diffusion.  This  makes  the  scheme 
something  of  a  hybrid  between  the  BSBT  scheme  (of  the  original  SWAN)  and  the 
second  order  scheme  (THETAK  =  0).  The  only  reason  to  intentionally  introduce 
diffusion  is  in  case  of  wiggles.  Wiggles  will,  for  the  most  part,  only  occur  when 
spatial  gradients  are  very  severe,  so  using  a  negative  THETAK  is  generally  not 
necessary.  Using  a  THETAK  of  -0.1  for  case-set  of  severe  gradient,  diffusion  seems 
to  be  about  midway  between  that  of  the  BSBT  scheme  and  that  of  the  second  order 
(THETAK  =  0)  scheme.  For  this  case-set,  wiggles  are  seen  in  the  second  order 
scheme  solution,  and  are  virtually  eliminated  with  the  (THETAK  =  -0.1)  scheme. 
Henri  has  shown  that  the  scheme  with  small  negative  THETAK  is  very  likely  to  be 
unconditionally  stable.  Larger  |THETAK|  ==>  more  diffusion. 

With  a  positive  THETAK,  the  scheme  is  unconditionally  unstable.  This  instability  is 
generally  not  noticeable,  but  since  there  is  not  a  good  reason  for  using  positive 
THETAK,  if  this  option  is  chosen,  a  warning  or  error  message  will  be  given. 


Calling  Sequence: 

sordup  (isstop,  idcmin,  idcmax,  cax,  cay,  ac2,  imatra,  imatda,  rdx, 
rdy) 

Data  Declaration: 

Real 

cax,  cay,  ac2,  imatra,  imatda,  rdx,  rdy 

Integer 

isstop,  idcmin,  idcmax 

Arguments: 

isstop 

Highest  spectral  frequency  counter  in  the  sweep. 

idcmin 

Minimum  value  of  direction  counter  in  this  sweep. 

idcmax 

Maximum  value  of  direction  counter  in  this  sweep. 

cax 

Propagation  velocity  in  x. 

cay 

Propagation  velocity  in  y. 

ac2 

Spectral  action  density,  function  of  x,  y,  theta, 
sigma. 

imatra 

Coefficients  of  right-hand  side  of  matrix. 

imatda 

Coefficients  of  diagonal  of  matrix. 

rdx,  rdy 

Containing  spatial  derivative  coefficient. 

5.3.10.6  Subroutine  SPREDT 

Subroutine  SPREDT  predicts  the  action  density  depending  on  the  sweep  direction.  A 
good  prediction  is  necessary  for  a  first  accurate  prediction  of  the  action  density  to 
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compute  the  dissipation  of  energy.  To  compute  the  energy  dissipation  a  prediction  is 
needed  at  time  T. 


Calling  Sequence:  spredt  (swpdir,  ac2,  cax,  cay,  idcmin,  idcmax,  isstop,  anybin,  rdx, 
rdy,  obredf) 


Data  Declaration:  Real 

Integer 

Logical 


swpdir,  ac2,  cax,  cay,  rdx,  rdy,  obredf 

idcmin,  idcmax,  isstop 

anybin 


Arguments: 


swpdir 

ac2 

cax 

cay 

idcmin 

idcmax 

isstop 

anybin 
rdx, rdy 
obredf 


Sweep  direction  (identical  as  the  description  of 
the  direction  the  wind  is  blowing). 

Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 
Wave  transport  velocity  in  x-direction,  function  of 
(id,  is,  ic). 

Wave  transport  velocity  in  y-direction,  function  of 
(id,  is,  ic). 

Minimum  frequency  dependent  counter  in  case  of  a 
current. 

Maximum  frequency  dependent  counter  in  case  of  a 
current. 

Maximum  frequency  counter  for  wave  components 
that  are  propagated  within  a  sweep. 

Determines  if  a  bin  falls  within  a  sweep. 

Array  containing  spatial  derivative  coefficient. 
Action  reduction  factors,  a  function  of  frequency 
and  direction. 


5.3.10.7  Subroutine  SPROSD 


Subroutine  SPROSD  computes  the  propagation  velocities  of  energy  in  S-  and  D-space, 
i.e.,  CAS,  CAD,  in  the  presence  or  absence  of  currents,  for  the  action  balance  equation. 


Calling  Sequence:  sprosd  (spcsig,  kwave,  cas,  cad,  ego,  dep2,  depl,  ecos,  esin,  ux2, 
uy2,  swpdir,  idcmin,  idcmax,  coscos,  sinsin,  sincos,  rdx,  rdy,  cax, 
cay,  anybin,  kgrpnt,  xegrid,  yegrid) 


Data  Declaration:  Real 

Integer 

Logical 


spcsig,  kwave,  cas,  cad,  ego,  dep2,  depl,  ecos,  esin, 
ux2,  uy2,  swpdir,  rdx,  rdy,  cax,  cay,  xegrid,  yegrid 
idcmin,  idcmax,  kgrpnt 
anybin 


Arguments:  spcsig 


Relative  frequencies  in  the  computational  domain  in 
sigma  space. 
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kwave 

Wave  number  as  function  of  the  relative  frequency 
sigma. 

cas 

Wave  transport  velocity  in  S-direction,  a  function  of 
(id,  is,  ic). 

cad 

Wave  transport  velocity  in  D-direction,  a  function 
of  (id,  is,  ic). 

ego 

Group  velocity  as  function  of  X,  Y  and  sigma  in 
the  direction  of  wave  propagation  in  absence  of 
currents. 

dep2 

Depth  as  function  of  (X,  Y)  at  time  T+l . 

ux2 

(Non-stationary  case)  X-component  of  current 
velocity  in  (X,  Y)  at  time  T  +  DIT. 

uy2 

(Non-stationary  case)  Y-component  of  current 
velocity  in  (X,  Y)  at  time  T  +  DIT. 

depl 

Depth  as  function  of  X  and  Y  at  time  T. 

ecos 

Represent  the  values  of  cos(d)  of  each  spectral 
direction. 

esin 

Represent  the  values  of  sin(d)  of  each  spectral 
direction. 

swpdir 

Current  sweep  direction. 

idemin 

Lower  theta  boundary  of  current  sweep. 

idemax 

Upper  theta  boundary  of  current  sweep. 

coscos 

CosineA2  of  spectral  directions. 

sinsin 

SineA2  of  spectral  directions. 

sincos 

Cosine*sine  of  spectral  directions. 

rdx,  rdy 

Array  containing  spatial  derivative  coefficient. 

cax 

Wave  transport  velocity  in  X-direction,  a  function 
of  (id,  is,  ic). 

cay 

Wave  transport  velocity  in  Y-direction,  a  function 
of  (id,  is,  ic). 

anybin 

=  True  if  a  certain  bin  is  enclosed  in  a  sweep. 

kgrpnt 

Grid  point  addresses. 

xegrid 

X-coordinate  of  computational  grid  in  x-direction. 

yegrid 

Y-coordinate  of  computational  grid  in  y-direction. 

5.3.10.8  Subroutine  SPROXY 

Subroutine  SPROXY  computes  the  propagation  velocities  of  energy  in  X-,  Y-space,  i.e., 
cax,  cay,  in  the  presence  or  absence  of  currents,  for  the  action  balance  equation.  The 
propagation  velocities  are  computed  for  the  full  360  degree  sector. 

Calling  Sequence:  sproxy  (ic,  icmax,  msc,  mdc,  icur,  cax,  cay,  ego,  ecos,  esin,  ux2, 
uy2,  swpdir,  kegrd,  megrd) 
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Data  Declaration:  Real 

cax,  cay,  ego,  ecos,  esin,  ux2,  uy2,  swpdir 

Integer 

msc,  mdc,  icmax,  ic,  icur,  kcgrd,  mcgrd 

Arguments: 

ic 

Dummy  variable. 

icmax 

Maximum  array  size  for  the  points  of  the  molecule. 

msc 

Maximum  counter  of  relative  frequency. 

mdc 

Maximum  counter  of  spectral  directions. 

icur 

Indicator  for  current. 

cax 

Wave  transport  velocity  in  x-direction,  function  of 
(id,  is,  ic). 

cay 

Wave  transport  velocity  in  y-direction,  function  of 
(id,  is,  ic). 

ego 

Group  velocity. 

ecos 

Represent  the  values  of  cos(d)  of  each  spectral 
direction. 

esin 

Represent  the  values  of  sin(d)  of  each  spectral 
direction. 

ux2 

X-component  of  current  velocity  of  X  and  Y  at  time 
T+  1. 

uy2 

Y-component  of  current  velocity  of  X  and  Y  at  time 
T+  1. 

swpdir 

Current  sweep  direction. 

kcgrd 

Grid  counter  in  central  grid  point. 

mcgrd 

Maximum  counter  in  geographical  space. 

5.3.10.9 

Subroutine  STRSD 

Subroutine  STRSD  computes  3[CAD  AC2J/3D  for  the  initial  and  boundary  conditions. 

Calling  Sequence:  strsd  (msc,  mdc,  icmax,  dd,  idcmin,  idcmax,  cad,  imatla,  imatda, 
imatua,  imatra,  ac2,  pnums,  isstop,  fulcir,  anybin,  leakcl,  kcgrd, 
mcgrd) 

Data  Declaration:  Real  dd,  cad,  ac2,  pnums,  imatla,  imatda,  imatua,  imatra, 

leakcl 

Integer  msc,  mdc,  icmax,  idcmin,  idcmax,  isstop,  kcgrd, 

mcgrd 

Logical  anybin,  fulcir 

Arguments:  msc  Maximum  counter  of  relative  frequency. 

mdc  Maximum  counter  of  directional  distribution, 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

dd  Width  of  spectral  direction  band, 

idcmin  Minimum  value  of  direction  counter  in  this  sweep. 
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idcmax  Maximum  value  of  direction  counter  in  this  sweep, 

cad  Wave  transport  velocity  in  S-direction,  function  of 

{id,  is,  ic ). 

imatla  Coefficients  of  lower  diagonal  of  matrix, 

imatda  Coefficients  of  diagonal  of  matrix, 

imatua  Coefficients  of  upper  diagonal  of  matrix, 

imatra  Coefficients  of  right-hand  side  of  matrix. 

ac2  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

pnums  Array  containing  various  coefficients/controls  for 

the  model. 

isstop  Maximum  frequency  counter  for  wave  components 

that  are  propagated  within  a  sweep, 
fulcir  If  true,  computation  on  a  full  circle, 

anybin  =  True  if  a  certain  bin  is  enclosed  in  a  sweep, 

leakcl  Leak  coefficient, 

kcgrd  Grid  counter  in  central  grid  point, 

mcgrd  Maximum  counter  in  geographical  space. 

5.3.10.10  Subroutine  STRSSB 

Subroutine  STRSSB  computes  d[CAS  AC2]/3S  for  the  initial  and  boundary  conditions 
with  an  explicit  scheme.  The  energy  near  the  blocking  point  is  removed  from  the 
spectrum  based  on  a  CFL  criterion. 

Calling  Sequence:  strssb  (mdc,  msc,  icmax,  iddlow,  iddtop,  idcmin,  idcmax,  isstop, 
cax,  cay,  cas,  ac2,  spcsig,  imatra,  pnums,  anyblk,  kcgrd,  mcgrd, 
rdx,  rdy) 

Data  Declaration:  Real  cax,  cay,  cas,  ac2,  spcsig,  imatra,  pnums,  rdx,  rdy 

Integer  mdc,  msc,  icmax,  iddlow,  iddtop,  idcmin,  idcmax, 

isstop,  kcgrd,  mcgrd 
Logical  anyblk 

Arguments:  msc  Maximum  counter  of  relative  frequency. 

mdc  Maximum  counter  of  directional  distribution, 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

iddlow  Minimum  direction  that  is  propagated  within  a 

sweep. 

iddtop  Idem  maximum. 

idcmin  Minimum  value  of  direction  counter  in  this  sweep, 

idcmax  Maximum  value  of  direction  counter  in  this  sweep, 

isstop  Maximum  frequency  counter  for  wave  components 

that  are  propagated  within  a  sweep, 
cax,  cay  Propagation  velocities  in  x-y  space. 
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cas  Wave  transport  velocity  in  S-direction,  function  of 

{id,  is,  ic). 

ac2  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space  imatra. 

pnums  Array  containing  various  coefficients/controls  for 

the  model. 

anyblk  Determines  if  a  counter  current  blocks  a  bin 

based  on  a  CFL  criterion, 
kcgrd  Grid  counter  in  central  grid  point, 

mcgrd  Maximum  counter  in  geographical  space, 

rdx,  rdy  Array  containing  spatial  derivative  coefficient. 

5.3.10.11  Subroutine  STRSSI 

Subroutine  STRSSI  computes  8[CAS  AC2]/9S  for  the  initial  and  boundary  conditions 

with  an  implicit  scheme. 

Calling  Sequence:  strssi  (msc,  mdc,  icmax,  pnums,  spcsig,  cas,  imat51,  imatda, 

imat6u,  anybin,  imatra,  ac2,  iscmin,  iscmax,  iddlow,  iddtop,  kcgrd, 
mcgrd) 

Data  Declaration:  Real  pnums,  spcsig,  cas,  ac2,  imat51,  imatda,  imat6u, 

imatra 

Logical  anybin 

Integer  msc,  mdc,  icmax,  iscmin,  iscmax,  iddlow,  iddtop, 

kcgrd,  mcgrd 

Arguments:  msc  Maximum  counter  of  relative  frequency. 

mdc  Maximum  counter  of  directional  distribution  one 

sweep. 

icmax  Maximum  counter  for  the  points  of  the  molecule, 

pnums  Array  containing  various  coefficients/controls  for 

the  model. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

cas  Wave  transport  velocity  in  S-direction,  function  of 

{id,  is,  ic). 

imat51  Coefficients  of  lower  diagonal  of  matrix, 

imatda  Coefficients  of  diagonal  of  matrix. 

imat6u  Coefficients  of  upper  diagonal  of  matrix, 

anybin  If  true  the  spectral  component  {id,  is)  is  to  be 

computed. 

imatra  Coefficients  of  right-hand  side  of  matrix. 
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ac2  Spectral  action  density,  function  of  x,  y,  theta,  and 

sigma. 

iscmin  Minimum  counter  in  frequency  space  per  direction, 

iscmax  Maximum  counter  in  frequency  space  per  direction, 

iddlow  Minimum  counter  per  sweep  taken  over  all 

frequencies. 

iddtop  Maximum  counter  per  sweep  taken  over  all 

frequencies. 

kcgrd  Grid  counter  in  central  grid  point, 

mcgrd  Maximum  counter  in  geographical  space. 


5.3.10.13  Subroutine  STRSXY 


Subroutine  STRSXY  computes  the  space  derivative  of  action  transport. 

Calling  Sequence:  strsxy  (isstop,  idcmin,  idcmax,  cax,  cay,  ac2,  acl ,  imatra,  imatda, 
rdx,  rdy,  obredf) 


Data  Declaration:  Real  cax,  cay,  ac2,  acl ,  rdx,  rdy,  imatra,  imatda,  obredf 

Integer  isstop,  idcmin,  idcmax 


Arguments: 


isstop  Highest  spectral  frequency  counter  in  the  sweep, 

idcmin  Minimum  value  of  direction  counter  in  this  sweep, 

idcmax  Maximum  value  of  direction  counter  in  this  sweep, 

cax  Propagation  velocity  in  x. 

cay  Propagation  velocity  in  y. 

ac2  Spectral  action  density,  function  of  x,  y,  theta  and 

sigma. 

acl  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

imatra  Coefficients  of  diagonal  of  matrix, 

imatda  Coefficients  of  right-hand  side  of  matrix, 

rdx,  rdy  Array  containing  spatial  derivative  coefficient, 
obredf  Action  reduction  factors,  function  of  frequency  and 

direction. 


5.3.10.14  Subroutine  SWAPAR 

Subroutine  SWAPAR  computes  the  wave  parameters  k,  ego,  and  eg  in  the  nearby  points, 
depending  on  the  sweep  direction.  The  nearby  points  are  indicated  with  the  index  ic. 

Calling  Sequence:  swapar  (ic,  msc,  mdc,  icmax,  eg,  icur,  grav,  dep2,  kwave,  ego, 
ecos,  esin,  ux2,  uy2,  spesig,  kcgrd,  mcgrd,  depmin) 
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Data  Declaration:  Real 

Integer 


eg,  grav,  dep2,  kwave,  ego,  ecos,  esin,  ux2,  uy2, 
spesig,  depmin 

ic,  msc,  mdc,  icmax,  icur,  kegrd,  megrd 


Arguments: 


ic  Dummy  variable, 

msc  Maximum  counter  of  relative  frequency, 

mdc  Maximum  counter  of  directional  distribution, 

icmax  Maximum  array  size  for  the  points  of  the  molecule, 

eg  Group  velocity  as  function  of  X,  Y  and  S  and  D  in 

the  direction  of  wave  propagation  in  presence  of 
currents. 

icur  Indicator  for  current, 

grav  Gravitational  acceleration. 

dep2  Depth  as  function  of  X  and  Y  at  time  T+l . 

kwave  Wave  number  as  a  function  of  the  relative 

frequency  S. 

ego  Group  velocity  as  function  of  X,  Y  and  S  in  the 

direction  of  wave  propagation  in  the  absence  of 
currents. 

ecos  Represent  the  values  of  cos(d)  of  each  spectral 

direction. 

esin  Represent  the  values  of  sin(d)  of  each  spectral 

direction. 

ux2  X-component  of  current  velocity  of  X  and  Y  at  time 

T+l. 

uy2  Y-component  of  current  velocity  of  X  and  Y  at  time 

T+l. 

spesig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

kegrd  Grid  counter  in  central  grid  point, 

megrd  Maximum  counter  in  geographical  space, 

depmin  Threshold  depth  (m);  in  the  computation  any 

positive  depth  smaller  than  depmin  is  made  equal  to 
depmin.  Default  =  0.05. 


5J.10.15  Subroutine  SWPSEL 

Subroutine  SWPSEL  computes  the  frequency  dependent  counters  in  situations  with  and 
without  a  current.  The  counters  are  only  computed  for  the  grid  point  considered.  This 
means  ic  =  1  (see  loop  with  call  for  ICCODE  function). 

Calling  Sequence:  swpsel  (swpdir,  idemin,  idemax,  sector,  cax,  cay,  anybin,  iscmin, 
iscmax,  idtot,  istot,  iddlow,  iddtop,  isstop,  dep2,  ux2,  uy2,  spedir, 
xegrid,  yegrid,  rdx,  rdy,  ksx,  ksy) 
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Data  Declaration:  Real  swpdir,  spcdir,  xcgrid,  ycgrid,  sector,  cax,  cay, 

dep2,  ux2,  uy2,  rdx,  rdy,  ksx,  ksy 

Integer  idcmin,  idcmax,  iscmin,  iscmax,  idtot,  istot,  iddlow, 

iddtop,  isstop 
Logical  anybin 

Arguments:  swpdir  Current  sweep  direction. 

idcmin  Minimum  frequency  dependent  counter, 

idcmax  Maximum  frequency  dependent  counter, 

sector  Counter  for  number  enclosed  sectors, 

cax,  cay  Propagation  velocities, 

anybin  =  True  if  a  certain  bin  enclosed  in  a  sweep, 

iscmin  Minimum  counter  in  frequency  space, 

iscmax  Maximum  counter  in  frequency  space, 

idtot  Maximum  value  between  the  lowest  and  highest 

counter  in  directional  space. 

istot  Maximum  value  between  the  lowest  and  highest 

counter  in  frequency  space. 

iddlow  Minimum  counter  per  sweep  taken  over  all 

frequencies. 

iddtop  Maximum  counter  per  sweep  taken  over  all 

frequencies. 

isstop  Maximum  frequency  counter  for  wave  components 

that  are  propagated  within  a  sweep. 
dep2  Depth. 

ux2  (Non-stationary  case)  X-component  of  current 

velocity  in  (X,  Y)  at  time  T  +  DIT. 
uy2  (Non-stationary  case)  Y-component  of  current 

velocity  in  (X,  Y)  at  time  T  +  DIT. 
spcdir  Spectral  directions. 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

rdx,  rdy  Array  containing  spatial  derivative  coefficient, 

ksx  Dummy  variable  to  get  the  correct  sign  in  the 

numerical  difference  scheme  in  X-direction. 
ksy  Dummy  variable  to  get  the  right  sign  in  the 

numerical  difference  scheme  in  Y-direction. 
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5.3.11  Subroutines  for  Solving  the  Band  Matrix  (swancomi  FOR  File) 
5.3.11.1  Subroutine  CGSTAB 


Subroutine  CGSTAB  solves  an  asymmetric  system  of  linear  equations  by  the  Bi- 

CGSTAB  method.  The  subroutine  contains  a  number  of  preconditioners. 

Calling  Sequence:  cgstab  (n,  amat,  rhsd,  usol,  epsl,  eps2,  itmax,  res,  p,  rbar,  t,  s,  v, 
work,  icontr,  infmat,  prec,  nprec,  ndim,  nconct,  upperi,  loperi, 
nstatc,  itsw,  itersw) 

Data  Declaration:  Real  amat,  rhsd,  usol,  epsl ,  eps2,  res,  p,  rbar,  t,  s,  v,  prec, 

work,  upperi,  loperi 

Integer  n,  itmax,  icontr,  infmat,  nprec,  ndim,  nconct,  nstatc, 

itsw,  itersw 

Arguments:  n  The  number  of  rows  in  the  matrix  A. 

amat  Matrix  from  the  equations  to  be  solved, 

rhsd  Vector  containing  the  right-hand  side  vector  of  the 

system  of  equations. 

usol  Solution  vector  of  length  n.  On  input  the  array 

contains  a  starting  vector.  At  output  the  array 
contains  the  last  iterate,  which  is  an  approximation 
to  the  solution  of  the  system. 

epsl,  eps2  Determines  the  accuracy  of  the  final  approximation, 
itmax  The  maximum  number  of  iterations  to  be 

performed. 

res  Array  containing  the  residual  vector, 

p  Work  array  to  store  the  direction  vector, 

rbar  Work  array  to  store  the  quasi-residual  vector, 

t,  s  Work  array  to  store  an  auxiliary  vector, 

v  Work  array  to  store  an  auxiliary  vector, 

work  Work  array  to  store  an  auxiliary  vector.  The  array 

work(.,3)  contains  the  update  of  the  solution  usol 
during  an  iteration.  If  post-conditioning  is  used,  it  is 
first  adapted  before  it  is  added  to  usol. 
icontr  Integer  array  in  which  information  about  the 

solution  process  must  be  given  by  the  user, 
infmat  Integer  array  with  information  of  the  matrix 

structure,  to  be  used  in  matrix-vector  multiplication 
subroutine. 

prec  Array  which  contains  part  of  the  preconditioning 

matrix. 
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nprec  Number  of  diagonals  which  are  used  in  the  pre¬ 

conditioning. 

ndim  Integer  indicating  the  amount  of  unknowns  in  every 

grid  point.  In  the  momentum  equations  ndim  =  2  or 
3,  whereas  in  the  pressure  and  transport  equations 
ndim  =  1 . 

nconct  Maximal  number  of  connections  in  one  row  of  the 

matrix. 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain, 

nstatc  Indicates  stationary: 

=  0;  stationary  computation; 

=  1 ;  non-stationary  computation, 
itsw  Timestep  counter  for  SWAN 

itersw  Iteration  counter  for  SWAN. 


5.3.11.2  Subroutine  DAXPY 

Subroutine  DAXPY  is  a  BLAS  routine  that  overwrites  double  precision  dy  with  double 
precision  da*dx  +  dy.  For  i  =  0  to  n-1,  replace  dy(ly  +  i*incy )  with  da*dx(lx  +  i*incx)  + 
dy(ly  +  i*incy),  where  lx  =  1  if  incx  >=  0,  else  lx  =  (- incx)*n ,  and  ly  is  defined  in  a  similar 
way  using  incy. 


5.3.11.3  Subroutine  DCOPY 

Subroutine  DCOPY  is  a  BLAS  routine  that  copies  double  precision  dx  to  double 
precision  dy.  For  i  =  0  to  n-1,  copy  dx(lx  +  i*incx)  to  dy( ly  +  i*incy),  where  lx  =  1  if  incx 
>  0,  else  lx  =  (- incx)*n ,  and  ly  is  defined  in  a  similar  way  using  incy. 


5.3.11.4  Double  Precision  Function  DDOT 

Subroutine  DDOT  calculates  the  dot  product  of  two  vectors  of  equal  length. 

Calling  Sequence:  ddot  (dx,  dy,  n) 

Data  Declaration:  Real  dx,  dy 

Integer  n 
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Arguments:  dx 

dy 
n 


First  vector  in  dot  product. 
Second  vector  in  dot  product. 
Vector  length. 


5.3.1 1 .5  Subroutine  DI  AG 


Subroutine  DIAG  makes  a  diagonal  scaling  of  the  matrix  for  the  momentum,  transport,  or 
pressure  equations. 

Calling  Sequence:  diag  (amat,  n,  ndimso,  nconct,  prec,  nprec,  infmat) 


Data  Declaration:  Real 

Integer 


amat,  prec 

n,  ndimso,  nconct,  nprec,  infmat 


Arguments: 


amat  The  coefficient  matrix  for  the  momentum  equations 

or  an  equation  similar  to  the  pressure  equation, 
n  Number  of  unknowns  in  the  solution  vector, 

ndimso  Integer  indicating  the  dimension  of  the  space  in 

which  the  problem  must  be  solved  (ndimso  =  1  or 
ndim). 

nconct  Number  of  connections  in  one  row  of  the  matrix, 

prec  The  preconditioning  matrix, 

nprec  Number  of  diagonals,  which  are  used  in  the  pre¬ 

conditioning.  In  this  subroutine  nprec  =  1 . 
infmat  If  infmat  =  1  momentum  equations  are  used, 

whereas  if  infmat  >=  4  equations  with  a  structure 
similar  to  the  pressure  equation  are  used. 


5.3.11.6  Subroutine  DIAGMU 


Subroutine  DIAGMU  multiplies  x  with  the  diagonal  matrix  given  in  prec.  The  array  prec 
should  be  filled  by  subroutine  DIAGF. 


Calling  Sequence:  diagmu  (n,  x,  b,  prec,  nprec) 


Data  Declaration:  Real 

Integer 


x,  b,  prec 
n,  nprec 


Arguments:  n 

x 

b 


Number  of  unknowns  in  the  solution  vector. 
The  original  vector. 

The  resulting  vector  after  multiplication. 
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prec  The  diagonal  preconditioning  matrix, 

nprec  Number  of  diagonals,  which  are  used  in  the  pre¬ 

conditioning.  In  this  subroutine  nprec  =  1 . 

5.3.11.7  Subroutine  DINVL3 

Subroutine  DINVL3  multiplies  x  by  L,  the  preconditioning  matrix  given  in  prec.  In  this 

case  we  obtain: 

-1 

b  =  L  x. 

The  array  prec  should  be  filled  by  dmlu3.f.  This  subroutine  contains  compiler  directives 

to  run  in  vector  speed  on  the  convex. 

Calling  Sequence:  dinvB  (x,  b,  matrix,  n,  ndim,  nconct,  prec,  nprec,  infmat) 

Data  Declaration:  Real  x,  b,  prec 

Integer  matrix,  n,  ndim,  nconct,  nprec,  infmat 

Arguments:  x  The  original  vector. 

b  The  result  vector,  which  contains:  -1  b  =  L  x. 

matrix  The  coefficient  matrix  for  the  momentum  or  an 

equation  similar  to  the  pressure  equation, 
n  Number  of  unknowns  in  the  solution  vector, 

ndim  Integer  indicating  the  dimension  of  the  space  in 

which  the  problem  must  be  solved  ( ndim  =  2  or  3). 
nconct  Number  of  connections  in  one  row  of  the  matrix, 

prec  The  preconditioning  matrix, 

nprec  Number  of  diagonals,  which  are  used  in  the  pre¬ 

conditioning.  In  this  subroutine  nprec  =  nconct. 
infmat  If  infmat  =  1  the  momentum  equations  are  used, 

whereas  if  infmat  =  1  is  larger  than  or  equal  to  four 
equations  with  a  structure  similar  to  the  pressure 
equations  are  used. 

5.3.11.8  Subroutine  DINVU3 

Subroutine  DINVU3  multiplies  x  by  U,  the  preconditioning  matrix  given  in  prec.  In  this 

case  we  obtain: 

-1 

b  =  U  x. 
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The  array  prec  should  be  filled  by  dmlu3.f.  This  subroutine  contains  compiler  directives 

to  run  in  vector  speed  on  the  convex. 

Calling  Sequence:  dinvu3  (x,  b,  matrix,  n,  ndimso,  nconct,  prec,  nprec,  infmat) 

Data  Declaration:  Real  x,  b,  prec,  matrix 

Integer  n,  ndimso,  nconct,  nprec,  infmat 

Arguments:  x  The  original  vector. 

b  The  result  vector,  which  contains:  -1  b  =  U  x. 

matrix  The  coefficient  matrix  for  the  momentum  or  an 

equation  similar  to  the  pressure  equation, 
n  Number  of  unknowns  in  the  solution  vector, 

ndimso  Integer  indicating  the  dimension  of  the  space  in 

which  the  problem  must  be  solved  {ndimso  =  1  or 
ndim). 

nconct  Number  of  connections  in  one  row  of  the  matrix, 

prec  The  preconditioning  matrix, 

nprec  Number  of  diagonals,  which  are  used  in  the  pre¬ 

conditioning.  In  this  subroutine  nprec  =  nconct. 
infmat  If  infmat{  1)  is  one  the  momentum  equations  are 

used,  whereas  if  infmat (l)  is  larger  than  or  equal  to 
four  equations  with  a  structure  similar  to  the 
pressure  equation  are  used. 

5.3.11.9  Subroutine  DMLU3 

Subroutine  DMLU3  calculates  an  upper  triangular  matrix  U  and  a  lower  triangular  matrix 

L,  which  form  an  incomplete  decomposition  of  A. 

Calling  Sequence:  dmlu3  (matrix,  n,  ndim,  nconct,  prec,  nprec,  infmat) 

Data  Declaration:  Real  matrix,  prec 

Integer  n,  ndim,  nconct,  nprec,  infmat 

Arguments:  matrix  The  coefficient  matrix  for  the  momentum  equations 

or  an  equation  similar  to  the  pressure  equation, 
n  Number  of  unknowns  in  the  solution  vector, 

ndim  Integer  indicating  the  dimension  of  the  space  in 

which  the  problem  must  be  solved  ( ndim  =  2  or  3). 
nconct  Number  of  connections  in  one  row  of  the  matrix, 

prec  The  preconditioning  matrix, 

nprec  Number  of  diagonals,  which  are  used  in  the  pre¬ 

conditioning.  In  this  subroutine  nprec  =  nconct. 
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infmat  If  infmat{  1 )  is  one  the  momentum  equations  are 

used,  whereas  if  infmat(  1)  is  larger  than  or  equal  to 
four,  equations  with  a  structure  similar  to  the 
pressure  equation  are  used.  lnfmat(2 )  is  the  number 
of  discretization  points  in  the  x-direction. 

5.3.1 1.10  Double  Precision  Function  DNRM2 

Subroutine  DNRM2  calculates  the  Euclidean  norm  of  a  vector  dx{)  of  length  n. 

Calling  Sequence:  dnrm2  (n,  dx,  incx) 

Data  Declaration:  Real  dx 

Integer  n, incx 

Arguments:  n  Length  of  the  vector  in  dxQ 

dx  Array  containing  the  vector, 

incx  Stride  of  the  vector  stored  in  dxQ. 

5.3.11.11  Subroutine  DRUMA1 

Calling  Sequence:  drumal  (x,  b,  matrix,  n,  nconct,  infmat,  upperi,  loperi) 

Data  Declaration:  Real  x,  b,  matrix,  upperi,  loperi 

Integer  n,  nconct,  infmat 

Arguments:  x  The  original  vector. 

b  The  result  vector,  which  contains:  -1  b  =  U  x. 

matrix  The  coefficient  matrix  for  the  momentum  or  an 

equation  similar  to  the  pressure  equation, 
n  Number  of  unknowns  in  the  solution  vector, 

nconct  Number  of  connections  in  one  row  of  the  matrix, 

infmat  If  infmat(\)  is  one  the  momentum  equations  are 

used,  whereas  if  infinat(  1)  is  larger  than  or  equal  to 
four,  equations  with  a  structure  similar  to  the 
pressure  equation  are  used.  Infmat{ 2)  is  the  number 
of  discretization  points  in  the  x-direction. 
upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain. 
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5.3.11.12  Subroutine  ISSOLV 

Subroutine  ISSOLV  solves  an  asymmetric  system  of  equations  of  the  shape  Ax  =  f. 

Calling  Sequence:  issolv  (iinsol,  rinsol,  matrix,  rhside,  solut,  nusol,  nconct,  infmat, 
work,  nwork,  precon,  nprec,  upperi,  loperi,  inocnv,  itsw,  itersw) 

Data  Declaration:  Real  rinsol,  matrix,  work,  rhside,  solut,  precon,  upperi, 

loperi 

Integer  iinsol,  nusol,  infmat,  itsw,  itersw,  inocnv,  nonet, 

nwork,  nprec 

Arguments:  iinsol  Integer  information  for  the  solver. 

rinsol  Real  information  for  the  solver. 

matrix  The  banded  matrix  being  solved  (input). 

rhside  Right  hand  side. 

solut  Output  solution. 

nusol  Number  of  points  in  solution. 

nconct  Number  of  connections  in  a  row  of  the  matrix. 

infmat  Integer  information  for  the  matrix. 

work  Work  array. 

nwork  Dimension  for  work  array. 

precon  Preconditioner. 

nprec  Number  of  diagonals  used  in  the  preconditioner, 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain, 

inocnv  Counts  occurrence  of  nonconvergence  in  solver, 

itsw  Timestep  counter  for  SWAN, 

itersw  Iteration  counter  for  SWAN. 

5.3.11.13  Subroutine  MKPREC 

Subroutine  MKPREC  is  used  to  build  a  preconditioner. 

Calling  Sequence:  mkprec  (matrix,  nusol,  ndimso,  nconct,  precon,  nprec,  infmat, 
mkind) 

Data  Declaration:  Real  matrix,  precon 

Integer  nusol,  ndimso,  nconct,  nprec,  infmat,  mkind 

Arguments:  matrix  Double  precision  array  in  which  the  matrix  of  the 

linear  system  of  equations  is  stored.  In  the  case  of 
mkind  =  2  the  matrix  is  scaled. 
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nusol  The  length  of  the  solution  vector, 

ndimso  The  dimension  of  the  space  for  the  solver:  ( ndimso 
=  1  for  non-coupled  equations,  ndimso  >  1  for 
coupled  equations). 

nconct  The  number  of  non-zero  diagonals  of  matrix. 

precon  Double  precision  array  in  which  a  preconditioning 

matrix  might  be  stored,  of  length  nprec  *  nusol.  It  is 
assumed  that  precon  has  a  similar  structure  as 
matrix. 

nprec  Maximum  number  of  diagonals  in  precon. 

infmat  Array  which  describes  the  structure  of  matrix. 

mkind  The  kind  of  the  preconditioner  required. 

5.3.11.14  Subroutine  PREVC 

Subroutine  PREVC  multiplies  the  vector  x  with  a  preconditioner. 

Calling  Sequence:  prevc  (n,  x,  b,  matrix,  ndim,  nconct,  precon,  nprec,  infmat,  mkind) 

Data  Declaration:  Real  x,  b,  matrix,  precon 

Integer  n,  ndim,  nconct,  nprec,  infmat,  mkind 

Arguments:  n  The  length  of  the  solution  vector, 

x  The  input  vector. 

b  The  output  vector  which  is  the  preconditioner  times 

the  vector  x. 

matrix  Double  precision  array  in  which  the  matrix  of  the 

linear  system  of  equations  is  stored, 
ndim  The  dimension  of  the  space  ( ndim  =  2  or  3). 

nconct  The  number  of  non-zero  diagonals  of  matrix. 

precon  Double  precision  array  in  which  a  preconditioning 

matrix  might  be  stored,  of  length  nprec  *  nusol.  It  is 
assumed  that  precon  has  a  similar  structure  as 
matrix. 

nprec  Maximum  number  of  diagonals  in  precon. 

infmat  Array  which  describes  the  structure  of  the  matrix, 

mkind  The  kind  of  the  preconditioner  required. 

5.3.11.15  Subroutine  PRIRES 

Subroutine  PRIRES  prints  the  norm  of  the  residual. 

Calling  Sequence:  prires  (text,  rnorm,  icontr,  final) 
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Data  Declaration: 

Real 

text,  morm,  final 

Integer 

icontr 

Arguments: 

text 

Denotes  output  form  subroutine  TEXT. 

morm 

2-norm  of  the  initial  residual. 

icontr 

Integer  array  in  which  information  about  the 
solution  process  must  be  given  by  the  user. 

final 

Logical  variable  telling  PRIRES  whether  this  is 
final  iteration  or  not. 

5.3.11.16  Subroutine  SWCOVA2D 


Subroutine  SWCOVA2D  computes  covariant  base  vectors  in  integration  points  two- 
dimensional  case. 


Calling  Sequence:  swcova2d  (mxc,  myc,  xcg,  ycg,  cva) 


Data  Declaration:  Real 

Integer 


xcg,  ycg,  cva 
mxc,  myc 


Arguments:  mxc 

myc 
xcg 
ycg 

cva 


Number  of  points  in  the  x-direction. 

Number  of  points  in  the  y-direction. 
X-coordinates. 

Y-coordinates. 

Array  containing  the  covariant  basis  vectors. 


5.3.11.17  Subroutine  SWDISDT2 

Subroutine  SWDISDT2  distributes  diffusion  terms  for  transport  equation  in  R2. 
Calling  Sequence:  swdisdt2  (mxc,  myc,  depth,  depmin,  alphad,  matrix,  dtsum) 


Data  Declaration: 

Real 

depth,  depmin,  dtsum,  matrix 

Integer 

mxc,  myc,  alphad 

Arguments: 

mxc 

Number  of  points  in  the  x-direction. 

myc 

Number  of  points  in  the  y-direction. 

depth 

Depth  direct  addressed. 

depmin 

Minimum  possible  depth. 

alphad 

Direction  index  of  integration. 

matrix 

Matrix. 

dtsum 

Derivative  contributions  to  the  matrix. 
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5.3.11.18  Subroutine  SWESSBC 

Subroutine  SWESSBC  puts  essential  boundary  conditions  into  the  matrix. 


Calling  Sequence: 

swessbc  (mxc 

,  myc,  matrix,  rhside,  setup) 

Data  Declaration: 

Real 

matrix,  rhside,  setup 

Integer 

mxc,  myc 

Arguments: 

mxc 

Number  of  points  in  the  x-direction. 

myc 

Number  of  points  in  the  y-direction. 

matrix 

Matrix. 

rhside 

Right-hand  side. 

setup 

Unknown  to  be  computed  direct  addressed. 

5.3.11.19  Subroutine  SWJCTA2D 


Subroutine  SWJCTA2D  computes  sqrt(g)  x  contra-variant  base  vectors  in  integration 
point  two-dimensional  case. 


Calling  Sequence:  swjcta2d  (mxc,  myc,  cva,  jcta) 


Data  Declaration: 

Real 

cva,  jcta 

Integer 

mxc,  myc 

Arguments: 

mxc 

Number  of  points  in  the  x-direction. 

myc 

Number  of  points  in  the  y-direction. 

cva 

Array  containing  the  covariant  basis  vectors. 

jcta 

Jacobian  times  contra-variant  basis  vectors: 
In  point  pnttyp  =  1  base  vector  1 ; 

In  point  pnttyp  =  2  base  vector  2. 

5.3.11.20  Subroutine  SWSOLV 


Subroutine  SSWSOLV  prepares  for  ISSOLV. 

Calling  Sequence:  swsolv  (matrix,  rhside,  setup,  npoint,  work,  nwork,  itsw,  iter, 
upperi,  loperi) 

Data  Declaration:  Real  matrix,  rhside,  setup,  work,  upperi,  loperi 

Integer  npoint,  nwork,  itsw,  iter 
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Arguments:  matrix  Matrix. 

rhside  Right-hand  side. 

setup  Unknown  to  be  computed  direct  addressed. 

npoint  Number  of  points  mxc*myc. 

work  Work  array. 

nwork  Dimension  for  work  array. 

itsw  Timestep  number. 

iter  Iteration  number  for  SWAN. 

upperi  Only  relevant  for  computation  in  periodic  domain. 

loperi  Only  relevant  for  computation  in  periodic  domain. 


5.3.11.21  Subroutine  SWTRAD2D 

Subroutine  SWTRAD2D  computes  the  contribution  of  diffusion  term  in  R2  for  a 
transport  equation  per  integration  point. 

Calling  Sequence:  swtrad2d  (mxc,  myc,  wfrcx,  wfrcy,  depmin,  alphad,  depth,  cva, 
jcta,  cva,  jcta,  eve,  etc,  dtsum,  rhside) 

Data  Declaration:  Real  wfrcx,  wfrcy,  depmin,  depth,  cva,  jcta,  cvc,  etc, 

dtsum,  rhside 

Integer  mxc,  myc,  alphad 

Arguments:  mxc  Number  of  points  in  the  x-direction. 

myc  Number  of  points  in  the  y-direction. 

wfrcx  Force  x-component  direct  addressed, 

wfrcy  Force  y-component  direct  addressed, 

depmin  Minimum  depth, 

alphad  Direction  index  of  integration, 

depth  Depth  direct  addressed, 

cva  Array  containing  the  covariant  basis  vectors, 

jcta  Jacobian  times  contra-variant  basis  vectors 

In  point  pnttyp  =  1  base  vector  1 ; 

In  point  pnttyp  =  2  base  vector  2. 
cvc  Work  array  containing  the  covariant  WESBEEK 

vectors. 

etc  Work  array  containing  the  contra- variant 

WESBEEK  vectors. 

dtsum  Derivative  contributions  to  the  matrix, 

rhside  Right-hand  side. 
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5.3.11.22  Subroutine  VULMAT 

Calling  Sequence:  vulmat  (n,  nconct,  a,  infmat,  upperi,  loperi ) 

Data  Declaration:  Real  a,  upperi,  loperi 

Integer  n,  nconct,  infmat 

Arguments:  n  The  length  of  the  solution  vector. 

nconct  The  number  of  non-zero  diagonals  of  matrix. 

a  Banded  matrix  being  tested, 

infmat  Array  which  describes  the  structure  of  the  matrix, 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain. 

5.3.11.23  Subroutine  VULMT1 

Calling  Sequence:  vulmtl  (ntot,  band,  upperi,  loperi,  rhv,  imatra,  imatla,  imatda, 

imatua,  imat51,  imat6u,  sector,  mdc,  msc,  iddlow,  iddtop,  isstop, 
idcmin,  idcmax,  anybin,  idtot,  kcgrd,  icmax) 

Data  Declaration:  Real  ban,  upperi,  loperi,  rhv,  imatra,  imatla,  imatda, 

imatua,  imat51,  imat6u,  sector 

Integer  ntot,  mdc,  msc,  iddlow,  iddtop,  isstop,  idcmin, 

idcmax,  idtot,  dcgrd,  icmax 
Logical  anybin 

Arguments:  ntot  Number  of  points  in  solution, 

band  Banded  matrix. 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain, 

rhv  RHS  of  set  of  equations, 

imatra  Coefficients  of  right  hand  side  of  matrix, 

imatla  Coefficients  of  lower  diagonal  of  matrix, 

imatda  Coefficients  of  diagonal  of  matrix, 

imatua  Coefficients  of  upper  diagonal  of  matrix. 

imat51  Coefficient  of  lower  diagonal  in  presence  of  a 

current. 

imat6u  Coefficient  of  upper  diagonal  in  presence  of  a 

current. 

sector  The  integer  array  SECTOR  denotes  which  case  is 

present  for  a  certain  frequency: 

=  0:  No  bins  belongs  to  first  sweep,  no  sector  lies 
within  the  first  sweep 

=  2:  Circle  has  2  intersections  with  sector  boundary 
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msc 

iddlow 

iddtop 

isstop 

idcmin 

idcmax 

anybin 

idtot 

kcgrd 

icmax 
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=  4:  Circle  has  4  intersections  with  sector  boundary 
=  1:  Full  circle  lies  within  the  first  quadrant,  all 
directions  have  to  taken  into  account 
Maximum  counter  of  directional  distribution  in 
computational  model. 

Maximum  counter  of  relative  frequency  in 
computational  model. 

Minimum  counter  per  sweep  taken  over  all 
frequencies. 

Maximum  counter  per  sweep  taken  over  all 
frequencies. 

Maximum  frequency  counter  for  wave  components 
that  are  propagated  within  a  sweep. 

Integer  array  containing  minimum  counter. 

Integer  array  containing  maximum  counter. 

Set  a  particular  bin  True  or  False  depending  on 
sector. 

Maximum  range  between  the  counters  in  directional 
space. 

Grid  address  of  points  of  computational  stencil. 
Maximum  array  size  for  the  points  of  a  molecule. 


5.3.12  SWAN  Main  Program  and  Miscellaneous  Routines  (swanmain  FOR  File) 

5.3.12.1  Subroutine  ERRCHK 

Subroutine  ERRCHK  checks  all  possible  combinations  of  physical  processes  if  they  are 
being  activated  and  it  changes  the  value  of  settings  if  necessary. 

Calling  Sequence:  errchk  (pool) 

Data  Declaration:  Integer  pool 

Arguments:  pool  Dynamic  data  pool. 

5.3.12.2  Subroutine  FLFILE 

Subroutine  FLFILE  updates  boundary  conditions  and  non-stationary  input  fields. 

Calling  Sequence:  flfile  (icrl,  icr2,  vnaml,  vnam2,  jxl,  jx2,  jx3,  jyl,  jy2,  jy3,  cosfc, 
sinfc,  pool,  rpool,  compda,  xcgrid,  ycgrid,  kgrpnt,  ierr) 
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Data  Declaration: 

Real 

cosfc,  sinfc,  rpool,  compda,  xcgrid,  ycgrid 

Integer 

icr  1 ,  igr2,  jxl,  jx2,  jx3,  jy  1 ,  jy2,  jy3,  pool,  kgrpnt. 

ierr 

Character 

vnaml,  vnam2 

Arguments: 

icrl 

Location  in  array  compda  for  interpolated  input 
field  data  (x-comp). 

icr2 

Location  in  array  compda  for  interpolated  input 
field  data  (y-comp)  for  a  scalar  field  igr2  =  0. 

vnaml 

Pointer  name  of  pool  array  holding  values  read  from 
file  (x-comp). 

vnam2 

Pointer  name  of  pool  array  holding  values  read  from 
file  (y-comp). 

jxl, jx2,  jx3 

Location  in  array  compda  for  interpolated  input 
field  data  (x-comp). 

jyijy2,jy3 

Location  in  array  compda  for  interpolated  input 
field  data  (y-comp). 

cosfc 

Cosine  of  the  angle  between  the  input  and 
computational  grids. 

sinfc 

Sine  of  the  angle  between  the  input  grid  and 
computational  grid. 

pool 

Dynamic  data  pool. 

rpool 

Real  equivalence  for  integer  pool. 

compda 

Array  holding  values  for  computational  grid  points. 

xcgrid 

X-coordinate  of  computational  grid  points. 

ycgrid 

Y-coordinate  of  computational  grid  points. 

kgrpnt 

Indirect  addresses  of  computational  grid  points. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End-of-file. 

5.3.12.3  Subroutine  RBFILE 

Subroutine  RBFILE  reads  boundary  spectra  from  one  file  and  additional  information  of 

the  heading  lines. 

Calling  Sequence: 

rbfile  (spcsig,  spcdir,  bfiled,  bsploc,  bspdir,  rbsdir,  bspfrq,  rbsfrq, 

bspecs,  bspau> 

c,  rbsaux,  xytst) 

Data  Declaration: 

Real 

spcdir,  spcsig,  bspecs,  rbsaux,  rbsdir,  rbsfrq 

Integer 

bspaux,  bspdir,  bspfrq,  bfiled,  bsploc,  xytst 

Arguments: 

spcsig 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 
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spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
bfiled  Data  concerning  boundary  condition  files, 

bsploc  Place  in  array  bspecs  for  storing  interpolated 

spectra. 

bspdir  Spectral  directions  of  input  spectrum. 

rbsdir  Real  equivalence  of  bspdir. 

bspfrq  Spectral  frequencies  of  input  spectrum. 

rbsfrq  Real  equivalence  of  bspfrq. 

bspecs  Boundary  spectra. 

bspaux  Auxiliary  array  used  for  interpolation. 

rbsaux  Real  equivalence  of  bspaux. 

xytst  Test  points. 

5.3.12.4  Subroutine  RESPEC 

Subroutine  RESPEC  reads  one  1-D  or  2-D  boundary  spectrum  from  file,  and  transforms 
to  internal  SWAN  spectral  resolution. 

Calling  Sequence:  respec  (btype,  ndsd,  bfiled,  unform,  dorder,  baux  1 ,  baux2,  baux3, 
baux4,  spcsig,  spcdir,  bspfrq,  bspdir,  lspec,  ufac,  ierr) 

Data  Declaration:  Real  spcsig,  spcdir,  bauxl,  baux2,  baux3,  baux4,  bspfrq, 

bspdir,  lspec,  ufac 

Integer  ndsd,  bfiled,  integer,  ierr 

Character  btype 

Logical  unform 

Arguments:  btype  Type  of  input. 

ndsd  Unit  reference  number  of  input  file, 

bfiled  Options  for  reading  boundary  condition  file, 

unform  If  true,  unformatted  reading  is  called, 

dorder  If  <  0,  order  of  directions  must  be  reversed, 

bauxl,  baux2, 

baux3,  baux4  Auxiliary  array. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 
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bspfrq 

(*,4)  CosineA2  of  spectral  directions; 
(*,5)  Cosine*sine  of  spectral  directions 
(*,6)  SineA2  of  spectral  directions. 
Spectral  frequencies  of  input  spectrum. 

bspdir 

Spectral  directions  of  input  spectrum. 

Ispec 

Interpolated  spectrum. 

ufac 

Factor  used  to  multiply  data. 

ierr 

Error  status: 

=  0  No  error; 

=  9  End  of  file. 

5.3.12.5  Subroutine  SINARR 

Subroutine  SINARR  calculates  energy  density  at  boundary  point  (x,  y,  sigma,  theta). 
Calling  Sequence:  sinarr  (pool) 

Data  Declaration:  Integer  pool 

Arguments:  pool  Dynamic  data  pool. 

5.3.12.6  Logical  Function  SINBTG 

Subroutine  SINBTG  checks  whether  a  point  given  in  problem  coordinates  is  in  the 
bottom  grid  (SINBTG  =  True)  or  not  (SINBTG  =  False). 

Calling  Sequence:  sinbtg  (xp,  yp) 

Data  Declaration:  Real  xp,  yp 

Arguments:  xp  X-coordinate  (problem  grid)  of  the  point. 

yp  Y-coordinate  (problem  grid)  of  the  point. 

5.3.12.7  Logical  Function  SINCMP 

Subroutine  SINCMP  checks  whether  a  point  given  in  problem  coordinates  is  in  the 
computational  grid  (SINCMP  =  True)  or  not  (SINCMP  =  False). 

Calling  Sequence:  sincmp  (xp,  yp,  xcgrid,  ycgrid,  kgrpnt,  kgrbnd) 

Data  Declaration:  Real  xp,  yp,  xcgrid,  ycgrid 

Integer  kgrpnt,  kgrbnd 
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Arguments:  xp  X-coordinate  (problem  grid)  of  the  point. 

yp  Y-coordinate  (problem  grid)  of  the  point, 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

kgrpnt  Grid  point  addresses, 

kgrbnd  Describes  computational  grid  boundary. 

5.3.12.8  Subroutine  SINUPT 

Subroutine  SINUPT  checks  whether  the  point  xp,  yp  (given  in  problem  coordinates)  of 

the  output  point-set  sname  is  located  in  the  computational  grid  and  bottom  grid  or  not.  If 

not,  a  warning  is  generated. 

Calling  Sequence:  sinupt  (psname,  xp,  yp,  xcgrid,  ycgrid,  kgrpnt,  kgrbnd) 

Data  Declaration:  Real  xp,  yp,  xcgrid,  ycgrid 

Integer  kgrpnt,  kgrbnd 

Character  psname 

Arguments:  psname  Name  of  the  output  point-set  (any  type). 

xp  X-coordinate  of  the  point  (problem  coordinates), 

yp  Y-coordinate  of  the  point  (problem  coordinates), 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction, 

kgrpnt  Addresses  of  the  computational  grid  points, 

kgrbnd  Describes  the  computational  grid  boundary. 

5.3.12.9  Subroutine  SNEXTI 

Calling  Sequence:  snexti  (pool,  rpool,  bfiles,  bsploc,  bspdir,  rbsdir,  bspfrq,  rbsfrq, 
bspaux,  rbsaux,  bspecs,  bgridp,  compda,  acl,  ac2,  spcsig,  spcdir, 
xcgrid,  ycgrid,  kgrpnt,  xytst) 

Data  Declaration:  Real  rpool,  acl,  ac2,  bspecs,  compda,  rbsaux,  rbsdir, 

rbsfrq,  spcdir,  spcsig,  xcgrid,  ycgrid 
Integer  pool,  bfiles,  bsploc,  bspdir,  bspfrq,  bgridp,  bspaux, 

xytst,  kgrpnt 

pool  Data  pool, 

rpool  Real  equivalence  of  data  pool. 

bfiles  Parameters  for  reading  boundary  files, 

bsploc  Location  where  to  put  boundary  values. 


Arguments: 
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bspdir 

rbsdir 

bspfrq 

rbsfrq 

bspaux 

rbsaux 

bspecs 

bgridp 

compda 

acl 

ac2 

spcsig 

spcdir 


xcgrid 

ycgrid 

kgrpnt 

xytst 


Spectral  directions  of  boundary  spectra. 

Spectral  directions  of  boundary  spectra. 

Spectral  frequencies  of  boundary  spectra. 

Spectral  frequencies  of  boundai^  spectra. 

Auxiliary  array  used  for  interpolation. 

Auxiliary  data  for  interpolation  of  spectra. 
Boundary  spectra. 

Data  for  interpolating  to  computational  grid  points. 
Values  on  computational  grid. 

Action  density  spectra  on  old  time  level. 

Action  density  spectra  on  new  time  level. 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

X-coordinate  of  computational  grid  in  x-direction. 
Y-coordinate  of  computational  grid  in  y-direction. 
Computational  grid  point  addresses. 

Test  points. 


5.3.12.10  Subroutine  SPRCON 


Subroutine  SPRCON  executes  some  tests  on  the  given  model  description. 


Calling  Sequence:  sprcon  (outps,  xcgrid,  ycgrid,  kgrpnt,  kgrbnd) 


Data  Declaration:  Real 

Integer 


xcgrid,  ycgrid 
kgrpnt,  kgrbnd,  outps 


Arguments: 


outps  Contains  information  about  output  points, 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction, 

kgrpnt  Grid  point  addresses, 

kgrbnd  Describes  the  computational  grid  boundary. 


5.3.12.11  Real  Function  SVALQI 

Subroutine  SVALQI  determines  the  value  of  a  quantity,  such  as  depth,  from  an  input  grid 
and  the  current  velocity  components  for  point  given  in  problem  coordinates. 
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Calling  Sequence:  svalqi  (xp,  yp,  igrid,  arrinp,  zero,  ixc,  iyc) 


Data  Declaration:  Real 

Integer 


xp,  yp,  arrinp 
igrid,  ixc,  iyc,  zero 


Arguments: 


xp 

yp 

igrid 

arrinp 

zero 

ixc 

iyc 


X-coordinate  in  the  computational  grid  point. 
Y-coordinate  in  the  computational  grid  point. 

Grid  indicator. 

Array  holding  the  values  at  the  input  grid  locations. 
If  zero  =  0,  then  value  outside  the  grid  is  zero, 
otherwise  the  value  is  extrapolated. 

Counter  for  X-coordinate  in  computational  grid 
(used  in  curvilinear  case). 

Counter  for  Y-coordinate  in  computational  grid 
(used  in  curvilinear  case). 


5.3.12.12  Program  SWAN 

Subroutine  SWAN  is  the  main  program  that  initializes  data  pool,  and  makes  common 
areas  empty. 


Common  Blocks:  NAMES 

TESTDA 
OUTPDA 
REFNRS 
LEESDA 
LEESDN 
SWNAME 
SWGRID 
SWCOMG 
SWNUMS 
SWTEST 

swurrv 

SWFYSP 

COMPDA 


5.3.12.14  Subroutine  SWINCO 

Subroutine  SWINCO  imposes  wave  initial  conditions  at  a  computational  grid. 

Calling  Sequence:  swinco  (ac2,  compda,  xcgrid,  ycgrid,  kgrpnt,  spcdir,  spcsig,  xytst) 
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Data  Declaration: 

Real 

ac2,  compda,  xcgrid,  ycgrid,  spcdir,  spcsig,  kgrpnt 

Integer 

xytst 

Arguments: 

ac2 

Action  density  spectra. 

compda 

Quantities  in  grid  points. 

xcgrid 

X-coordinate  of  computational  grid  in  x-direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y-direction. 

kgrpnt 

Indirect  addresses  of  grid  points. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

spcsig 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

xytst 

Test  points. 

5.3.12.15  Subroutine  SWINIT 

Subroutine  SWINIT  initializes  the  dynamic  data  pool  and  assigns  initial  values  to  the 
variables  in  the  common  blocks. 


Calling  Sequence: 
Data  Declaration: 
Arguments: 


swinit  (pool,  inerr) 

Integer  pool,  inerr 

pool  Dynamic  data  pool. 

inerr  Number  of  the  initialization  error. 


5.3.12.16  Subroutine  SWMAIN 


Subroutine  SWMAIN  calls  subroutines  SWINIT,  SWREAD,  SWCOMP  and  SWOUTP. 


Calling  Sequence:  swmain  (pool,  rpool,  lpool,  inerr) 


Data  Declaration:  Real 

Integer 

Logical 


rpool 

pool,  inerr 
lpool 


Arguments: 


pool  Dynamic  data  pool, 

rpool  Real  equivalence  to  pool. 
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lpool  Logical  equivalence  to  pool. 

inerr  Number  of  the  initialization  error. 

5.3.12.17  Subroutine  SWPREP 


Subroutine  SWPREP  computes  the  transformation  coefficients  between  the  different 
grids. 

Calling  Sequence:  swprep  (outda,  xcgrid,  ycgrid,  kgrpnt,  obsta,  cross,  kgrbnd) 


Data  Declaration: 

Real 

xcgrid,  ycgrid 

Integer 

outda,  kgrpnt,  cross,  obsta,  kgrbnd 

Arguments: 

outda 

Contains  output  data. 

xcgrid 

X-coordinate  of  computational  grid  in  x  direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y  direction. 

kgrpnt 

Grid  point  addresses. 

kgrbnd 

Describes  the  computational  grid  boundary. 

obsta 

Array  of  obstacle  parameters. 

cross 

Array  which  contains  0’s  if  there  is  no  obstacle 
crossing  if  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor  cross  is  equal  to  the 
number  of  the  obstacle. 

5.3.12.18  Subroutine  SWRBC 

Subroutine  SWRBC  determines  and  writes  the  depths  and  currents  at  a  line  in  the 
computational  grid  to  a  file  with  reference  number  nref. 

Calling  Sequence: 

swrbc  (pool,  rpool,  compda,  kgrpnt,  xcgrid,  ycgrid) 

Data  Declaration: 

Integer 

kgrpnt,  pool 

Real 

rpool,  compda,  xcgrid,  ycgrid 

Arguments: 

pool 

Dynamic  data  pool. 

rpool 

Real  equivalence  of  pool. 

compda 

Values  on  the  computational  grid. 

kgrpnt 

Grid  point  addresses. 

xcgrid 

X-coordinate  of  computational  grid  in  x  direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y  direction. 
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5.3.13  Main  Output  Routines  (swanoutl  FOR  File) 
5.3.13.1  Subroutine  SWIPOL 


Subroutine  SWIPOL  interpolates  finp  to  the  point  given  by  the  computational  grid 
coordinates  xc  and  yc.  The  result  appears  in  array  foutp. 


Calling  Sequence:  swipol  (finp,  excval,  xc,  yc,  mip,  foutp,  kgrpnt,  dep2) 


Data  Declaration:  Real 

Integer 


finp,  excval,  xc,  yc,  foutp,  dep2 
mip,  kgrpnt 


Arguments: 


finp  Array  of  function  values  defined  on  the 

computational  grid. 

excval  Exception  value  (assigned  if  point  is  outside  the 

computational  grid). 

xc>  yc  Array  containing  the  computational  grid  coordinates 

of  output  points. 

mip  Number  of  output  points. 

foutp  Array  of  interpolated  values  for  the  output  points. 

kgrpnt  Index  for  indirect  addressing. 

dep2  Depth  at  the  computational  grid  points. 


5.3.13.2  Subroutine  SWODDC 


Subroutine  SWODDC  decodes  output  point  set  data. 


Calling  Sequence: 


swoddc  (outps,  psname,  pstype,  mip,  mxk,  myk,  xnlen,  ynlen,  mxn, 
myn,  xpcn,  ypcn,  alpcn,  xcgrid,  ycgrid,  rtype) 


Data  Declaration: 


Real 

Integer 

Character 


xcgrid,  ycgrid,  xnlen,  ynlen,  xpcn,  ypcn,  alpcn 
outps,  mip,  mxk,  myk,  mxn,  myn 
psname,  pstype,  rtype 


Arguments: 


outps 

psname 

pstype 

mip 

mxk 

myk 

xnlen,  ynlen 
mxn,  myn 

xpcn,  ypcn 


Array  containing  output  data. 

Name  of  output  point  set  referred  to. 

Type  of  output  point  set. 

Number  of  output  points. 

Number  of  output  points  in  X-direction  (Frame). 
Number  of  output  points  in  Y-direction  (Frame). 
(X,  Y)  length  of  the  nested  grid. 

Number  of  meshes  in  X,  Y  direction  for  the  nested 
grid. 

Location  of  the  origin  of  the  nested  grid. 
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alpcn  Angle  of  the  nested  grid  with  the  positive  x-axis, 

counter-clockwise  measured. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction, 

rtype  Indicates  type  of  output;  "PLOT"  means  that  a 

spatial  plot  is  made. 

5.3.13.3  Subroutine  SWOEXA 

Subroutine  SWOEXA  calculates  quantities  for  which  the  spectral  action  density  is 
necessary. 

Calling  Sequence:  swoexa  (oqproc,  bkc,  mip,  xc,  yc,  voqr,  voq,  ac2,  acloc,  spcsig,  wk, 
eg,  spedir,  ne,  ned,  kgrpnt,  depxy) 

Data  Declaration:  Real  xc,  yc,  voq,  ac2,  spcsig,  spedir,  wk,  eg,  ne,  ned, 

depxy,  acloc 

Integer  mip,  voqr,  kgrpnt 

Logical  oqproc 

Arguments:  oqproc  Processing  of  output  quantities. 

bkc  Variable  used  to  flag  variables  for  calculation  for 

purpose  of  writing  to  output, 
mip  Number  of  output  points, 

xc,  yc  Computational  grid  coordinates, 

voqr  Location  in  voq  of  certain  output  quantities, 

voq  Values  of  output  quantities. 

ac2  Action  densities, 

acloc  Local  action  density  spectrum, 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

wk  Wave  number  in  output  point, 

eg  Group  velocity  in  output  point, 

spedir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
ne  Ratio  of  group  and  phase  velocity, 

ned  Derivative  of  ne  with  respect  to  depth, 

kgrpnt  Index  for  indirect  addressing, 

depxy  Depth  in  points  of  the  computational  grid. 
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5.3.13.4  Subroutine  SWOEXC 

Subroutine  SWOEXC  calculates  the  computational  grid  coordinates  of  the  output  points. 

Calling  Sequence:  swoexc  (outps,  pstype,  mip,  xp,  yp,  xc,  yc,  kgrpnt,  xcgrid,  ycgrid, 
kgrbnd) 

Data  Declaration:  Real  xp,  yp,  xc,  yc,  xcgrid,  ycgrid 

Integer  outps,  mip,  kgrpnt,  kgrbnd 

Character  pstype 

Arguments:  outps  Array  containing  output  data. 

pstype  Type  of  output  point  set. 

mip  Number  of  output  points. 

xp,  yp  User  coordinates  of  output  point. 

xc,  yc  Computational  grid  coordinates. 

kgrpnt  Index  for  indirect  addressing. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction. 

kgrbnd  Describes  the  computational  grid  boundary. 

5.3.13.5  Subroutine  SWOEXD 

Subroutine  SWOEXC  calculates  the  distance,  depth,  Ux,  Uy,  etc. 

Calling  Sequence:  swoexd  (oqproc,  mip,  xc,  yc,  voqr,  voq,  compda,  kgrpnt) 

Data  Declaration:  Real  xc,  yc,  compda,  voq 

Integer  mip,  kgrpnt,  voqr 

Logical  oqproc 

Arguments:  oqproc  Y/n  process  output  quantities. 

mip  Number  of  output  points. 

xc,  yc  Computational  grid  coordinates. 

voqr  Location  in  voq  of  certain  output  quantities. 

voq  Values  of  output  quantities. 

compda  Array  holding  values  for  computational  grid  points. 

kgrpnt  Index  for  indirect  addressing. 

5.3.13.6  Subroutine  SWOEXF 

Subroutine  SWOEXF  calculates  wave-driven  force  (output  quantity  IVTYPE  =  20). 
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Calling  Sequence: 


Data  Declaration: 


Arguments: 


swoexf  (mip,  xc,  yc,  voqr,  voq,  ac2,  dep2,  spcsig,  wk,  eg,  spedir, 
ne,  ned,  kgrpnt,  xegrid,  yegrid) 


Integer 

mip 

xc,  yc 

voqr 

voq 

ac2 

dep2 

spcsig 


eg 

spedir 


ned 

kgrpnt 

xegrid 

yegrid 


xc,  yc,  voq,  ac2,  dep2,  spcsig,  wk,  eg,  spedir,  ne, 
ned,  xegrid,  yegrid 
mip,  voqr,  kgrpnt 

Number  of  output  points. 

Computational  grid  coordinates  of  output  point. 
Location  in  voq  of  a  certain  output  quantity. 

Values  of  output  quantities. 

Action  density. 

Depth  at  the  computational  grid  points. 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

Wave  number  in  output  point. 

Group  velocity  in  output  point. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Ratio  of  group  and  phase  velocity. 

Derivative  of  ne  with  respect  to  depth. 

Index  for  indirect  addressing. 

X-coordinate  of  computational  grid  in  x  direction. 
Y-coordinate  of  computational  grid  in  y  direction. 


5.3.13.7  Subroutine  SWOINA 


Subroutine  SWOINA  interpolates  local  action  density  acloc  from  array  ac2. 
Calling  Sequence:  swoina  (xc,  yc,  ac2,  acloc,  kgrpnt,  depxy) 


Data  Declaration:  Real 

Integer 


Arguments: 


xc,  yc 

ac2 

acloc 

kgrpnt 

depxy 


xc,  yc,  ac2,  acloc,  depxy 
kgrpnt 

Computational  grid  coordinates. 

Action  densities. 

Local  action  density  spectrum. 

Index  for  indirect  addressing. 

Depth  in  points  of  the  computational  grid. 
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5.3.13.8  Subroutine  SWORDC 

Subroutine  SWORDC  decodes  output  requests. 

Calling  Sequence:  swordc  (outi,  outr,  rtype,  psname,  nvoqp,  oqproc,  bkc,  voqr,  logact) 

Data  Declaration:  Integer  voqr,  bkc,  outi,  nvoqp 

Real  outr 

Logical  oqproc,  logact 

Character  rtype,  psname 

Arguments:  outi  Array  for  storage  of  information  regarding  location, 

type  of  output. 

outr  Code  for  one  output  request, 

rtype  Type  of  output, 

psname  Name  of  output  point  set  referred  to. 
nvoqp  Number  of  data  per  output  point, 

oqproc  Whether  or  not  an  output  quantity  must  be 

processed. 

bkc  Variable  used  to  flag  variables  for  calculation  for 

purpose  of  writing  to  output, 
voqr  Place  of  each  output  quantity, 

logact  Logical  variable;  TRUE  enables  output. 

5.3.13.9  Subroutine  SWOUTP 

Subroutine  SWOUTP  processes  the  output  requests. 

Calling  Sequence:  swoutp  (outda,  routda,  loutda,  ac2,  spcsig,  spcdir,  compda,  xytst, 
kgrpnt,  xcgrid,  ycgrid,  kgrbnd) 

Data  Declaration:  Real  routda,  ac2,  spcsig,  spcdir,  xcgrid,  ycgrid,  compda 

Integer  outda,  xytst,  kgrpnt,  kgrbnd 

Logical  loutda 

Arguments:  outda  Array  containing  output  data,  requests. 

routda  Real  equivalence  of  outda. 

loutda  Logical  equivalence  of  outda. 

ac2  Action  density  in  all  computational  points, 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

spcdir  Spectral  directions,  cosines  and  sines, 

compda  Array  holding  values  for  the  computational  grid 
points. 
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xytst  Test  points. 

kgrpnt  Index  for  indirect  addressing. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction. 

kgrbnd  Describes  the  computational  grid  boundary. 


5.3.14  Output  Routines  (swanout2  FOR  File) 
5.3.14.1  Subroutine  PLOTCG 

Subroutine  PLOTCG  plots  the  computational  grid. 


Calling  Sequence:  plotcg  (ixmax,  iymax,  ixmin,  iymin,  lincol,  cx,  cy,  kgrpnt) 


Data  Declaration:  Integer 

ixmax,  iymax,  ixmin,  iymin,  lincol,  kgrpnt 

Real 

cx,  cy 

Arguments: 

ixmax 

Maximum  X  for  which  computational  grid  is  to  be 
plotted. 

iymax 

Maximum  Y  for  which  computational  grid  is  to  be 
plotted. 

ixmin 

Minimum  X  for  which  computational  grid  is  to  be 
plotted. 

iymin 

Minimum  Y  for  which  computational  grid  is  to  be 
plotted. 

lincol 

Line  color  (pen  number)  used  for  plotting. 

cx,  cy 

Coordinates  of  computational  grid  points. 

kgrpnt 

Array  grid  point  indices. 

5.3.14.2 

Subroutine  SBLKPT 

Subroutine  SBLKPT  writes  the  block  output  either  on  paper  or  to  data  file. 

Calling  Sequence:  sblkpt  (ipd,  nref,  dfac,  psname,  qunit,  mxk,  myk,  idla,  string, 
oqvals) 

Data  Declaration:  Real  dfac,  oqvals 

Integer  ipd,  nref,  mxk,  myk,  idla 

Character  psname,  qunit,  string 

Arguments:  ipd  Switch  for  printing  on  paper  ( ipd  =  1)  or  writing  to 

data  file  ( ipd  =  2  or  3). 
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nref 

Unit  reference  number  of  output  file. 

dfac 

Multiplication  factor  of  block  output. 

psname 

Name  of  output  point  set  (frame). 

qunit 

Physical  unit  (dimension)  of  variable. 

mxk 

Number  of  points  in  x-direction  of  frame. 

myk 

Number  of  points  in  y-direction  of  frame. 

idla 

Controls  layout  of  output. 

string 

Description  of  output  variable. 

oqvals 

Generic  array  containing  variable  which  is  being 
written. 

5.3.14.3  Subroutine  SPLOER 

Subroutine  SPLOER  draws  a  plot  with  the  locations  of  error  points. 

Calling  Sequence: 

sploer  (oreq,  xcgrid,  ycgrid) 

Data  Declaration: 

Real 

xcgrid,  ycgrid 

Integer 

oreq 

Arguments: 

oreq 

Array  containing  output  requests. 

xcgrid 

X-coordinate  of  computational  grid  in  x  direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y  direction. 

5.3.14.4  Character  Function  SUHEAD 

Subroutine  SUHEAD  prepares  a  unit  for  the  table  print  output  in  the  form:  [unit]. 
Calling  Sequence:  suhead  (qunit) 

Data  Declaration:  Character  qunit 

Arguments:  qunit  Unit  of  the  variable  to  be  printed  in  the  table 

headings. 

5.3.14.5  Subroutine  SWBLOK 

Subroutine  SWBLOK  prepares  output  in  the  form  of  a  block  that  is  printed  by  subroutine 
SBLKPT. 

Calling  Sequence:  swblok  (rtype,  oreq,  psname,  mxk,  myk,  voqr,  voq) 
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Data  Declaration: 

Real 

voq 

Integer 

voqr,  oreq,  mxk,  myk 

Character 

rtype,  psname 

Arguments: 

rtype 

Type  of  output  request: 

BLKP  for  output  on  paper; 

BLKD  and  BLKL  for  output  to  data  file. 

oreq 

Array  containing  current  output  request. 

psname 

Name  of  output  frame. 

mxk 

Number  of  grid  points  in  x-direction. 

myk 

Number  of  grid  points  in  y-direction. 

voqr 

Gives  location  in  array  voq  where  to  find  a 
variable. 

voq 

Values  of  variables  for  all  output  points. 

5.3.14.6  Subroutine  SWCMSP 

Subroutine  SWCMSP  computes  energy  density  spectrum  1-D  or  2-D. 

Calling  Sequence: 

swcmsp  (otype,  xc,  yc,  ac2,  acloc,  spcsig,  dep,  dep2,  ux,  uy,  ecos, 
esin,  ofac,  kgrpnt,  ierr) 

Data  Declaration: 

Real 

xc,  yc,  ac2,  acloc,  spcsig,  dep,  dep2,  ux,  uy,  ecos, 
esin,  ofac 

Integer 

otype,  kgrpnt,  ierr 

Arguments: 

otype 

Type  of  spectrum  wanted:  2  or  -2  for  2-D  spectrum, 

1  or  -1  for  1-D  frequency  spectrum  positive:  relative 
frequency  negative:  absolute  frequency. 

xc,  yc 

Coordinates  of  output  location(s). 

ac2 

Action  densities. 

acloc 

\otype\  =  2:  2-D  spectrum  at  one  output  location. 
\otype\  =  1:  1-D  spectra  at  output  locations. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

dep 

Depths  at  output  location. 

dep2 

Depth. 

ux,  uy 

Current  velocities  at  output  location. 

ecos 

Cosines  of  spectral  directions. 

esin 

Sines  of  spectral  directions. 

ofac 

Output  factor  (if  inrhog  =  1,  equal  to  rho*grav). 

kgrpnt 

Array  grid  point  indices. 
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terr 


5.3.14.7  Subroutine  SWPLOT 


Subroutine  SWPLOT  prepares  to  plot  contour  lines  and  vector  patterns. 


Calling  Sequence: 

swplot  (oreq,  mxk,  myk,  ppname,  voqr,  voq,  orer,  places,  placer. 

dines,  cliner, 

psdata,  outpr,  xcgrid,  ycgrid,  kgrpnt,  kgrbnd,  i_voq) 

Data  Declaration: 

Real 

cliner,  outpr,  placer,  xcgrid,  ycgrid,  orer 

Integer 

i_voq,  mxk,  myk,  voqr,  dines,  ppname,  oreq, 
places,  psdata,  kgrpnt,  kgrbnd 

Arguments: 

oreq 

Array  containing  output  requests. 

mxk,  myk 

Number  of  grid  points  of  output  frame. 

ppname 

Output  frame. 

voqr 

Gives  location  in  array  voq  where  to  find  a 
variable. 

voq 

Values  of  variables  for  all  output  points. 

orer 

Real  equivalence  of  oreq. 

places 

Data  on  town  and  region  names. 

placer 

Real  equivalence  of  places. 

dines 

Data  on  coastlines. 

diner 

Real  equivalence  of  clines. 

psdata 

Data  on  output  point  sets. 

outpr 

Real  equivalence  of  psdata. 

xcgrid 

X-coordinate  of  computational  grid  in  x  direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y  direction. 

kgrpnt 

Array  grid  point  indices. 

kgrbnd 

Describes  the  computational  grid  boundary. 

i_voq 

Integer  equivalence  of  voq. 

5.3.14.8  Subroutine  SWSPEC 

Subroutine  SWSPEC  prints  action  density  spectrum  in  the  form  of  a  table. 

Calling  Sequence:  swspec  (rtype,  oreq,  mip,  voqr,  voq,  ac2,  acloc,  spcsig,  spcdir, 
dep2,  kgrpnt) 

Data  Declaration:  Real  voq,  ac2,  spcsig,  spcdir,  dep2 

Integer  oreq,  mip,  voqr,  kgrpnt 
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Arguments: 


Character 

rtype 

rtype 

Type  of  output  request: 
spec  for  2-D  spectral  output; 
spel  for  1-D  frequency  spectrum. 

oreq 

Array  containing  output  request  data  of  request 
currently  being  processed. 

mip 

Number  of  output  points  in  set  psname. 

voqr 

Gives  location  in  array  voq  where  to  find  a 
variable. 

voq 

Values  of  variables  for  all  output  points. 

ac2 

Action  densities. 

acloc 

Case  spec :  2-D  spectrum  at  one  output  location. 
Case  spel:  1-D  spectra  at  output  locations. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

dep2 

Depth. 

kgrpnt 

Array  grid  point  indices. 

5.3.14.9  Subroutine  SWSTAR 


Subroutine  SWSTAR  plots  directional  distribution  of  action  transport. 


Calling  Sequence: 


swstar  (oreq,  mxk,  myk,  voqr,  voq,  orer,  kgrpnt,  spcsig,  spcdir, 
ac2,  acloc,  wavn,  eg,  ne,  ned) 


Data  Declaration:  Real 

Integer 


voq,  spcsig,  spcdir,  ac2,  acloc,  wavn,  eg,  ne,  ned, 
orer 

oreq,  mxk,  myk,  voqr,  kgrpnt 


Arguments: 


oreq 

mxk,  myk 
voqr 

voq 

orer 

kgrpnt 

spcsig 


Array  containing  output  requests. 

Number  of  grid  points  of  output  frame. 

Gives  location  in  array  voq  where  to  find  a 
variable. 

Values  of  variables  for  all  output  points. 

Real  equivalence  of  oreq. 

Array  grid  point  indices. 

Relative  frequencies  in  computational  domain  in 
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sigma  space. 

spcdir  (*,1)  Spectra]  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 
(*,5)  Cosine*sine  of  spectral  directions; 
(*,6)  SineA2  of  spectral  directions. 
ac2  Action  densities, 

acloc  Spectral  action  densities  in  output  point, 

wavn  Wave  numbers, 

eg  Energy  property  velocity, 

ne  Unused, 

ned  Unused. 


5.3.14.10  Subroutine  SWTABP 

Subroutine  SWTABP  prints  output  in  the  form  of  a  table  for  any  type  of  output  point  set. 


Calling  Sequence: 

swtabp  (rtype, 

oreq,  psname,  mip,  voqr,  voq) 

Data  Declaration: 

Real 

voq 

Integer 

mip,  voqr,  oreq 

Character 

rtype,  psname 

Arguments: 

rtype 

Type  of  output  request. 

oreq 

Array  containing  output  requests. 

psname 

Name  of  output  point  set  (frame). 

mip 

Number  of  output  points  in  set  psname. 

voqr 

Gives  location  in  array  voq  where  to  find  a 
variable. 

voq 

Values  of  variables  for  all  output  points. 

5.3.15  Output  routines  (swanout3  FOR  File) 
5.3.15.1  Subroutine  PLSPEC 


Calling  Sequence: 


plspec  (oreq,  orer,  spesig,  logpl,  acloc,  ip,  xc,  yc,  hsig,  aper,  pper, 
adir,  dspr,  wvx,  wvy,  spcdir) 


Data  Declaration:  Real 

Integer 


orer,  spesig,  acloc,  xc,  yc,  hsig,  aper,  pper,  adir, 
dspr,  wvx,  wvy,  spcdir 
oreq,  ip 
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Arguments: 


Logical 

logpl 

oreq 

Array  containing  output  requests. 

orer 

Real  equivalence  of  oreq. 

spcsig 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

logpl 

Logical  array  used  as  working  space  with  dimension 
( nfreq ,  nangl). 

acloc 

|o(y/7c|  =  2:  2-D  spectrum  at  one  output  location. 
\otype\  =  1:  1-D  spectra  at  output  locations. 

ip 

Point  to  be  plotted. 

xc,  yc 

Coordinates  of  output  location(s). 

hsig 

Significant  wave  height. 

aper 

Average  wave  period. 

pper 

Peak  wave  period. 

adir 

Average  (mean)  wave  direction. 

dspr 

One-sided  directional  width  of  spectrum. 

wvx,  wvy 

X  and  y  component,  respectively,  of  wind  velocity. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

5.3.15.2  Subroutine  PLTAR1 


Subroutine  PLTAR1  plots  an  arrow  (centered). 


Calling  Sequence: 

pltarl 

(xO,  yO,  arl,  tha,  th2,  fac2,  arlmin) 

Data  Declaration: 

Real 

xO,  yO,  arl,  tha,  th2,  fac2,  arlmin 

Arguments: 

xO,  yO 

Center  coordinates  of  array. 

arl 

Arrow  length. 

tha 

Direction  of  arrow. 

th2 

Angle  in  head  of  arrow. 

fac2 

Length  factor  head  arrow. 

arlmin 

Minimum  arrow  length. 

5.3.15.3  Subroutine  PLTAR2 

Subroutine  PLTR2  plots  an  arrow  (centered). 
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Calling  Sequence:  pltar2  (xO,  yO,  arl,  tha,  th2,  fac2,  arlmin) 


Data  Declaration: 


Arguments: 


xO,  yO 

arl 

tha 

th2 

fac2 

arlmin 


xO,  yO,  arl,  tha,  th2,  fac2,  arlmin 

Center  coordinates  of  array. 
Arrow  length. 

Direction  of  arrow. 

Angle  in  head  of  arrow. 

Length  factor  head  arrow. 
Minimum  arrow  length. 


5.3.15.4  Subroutine  PLTCIR 


Subroutine  PLTCIR  plots  a  circle  with  radius  r  around  the  origin. 


Calling  Sequence:  pltcir  (r,  dashln) 


Data  Declaration:  Real 


Arguments: 


dashln 


r,  dashln 

Radius  of  circle  in  plot  units. 
Length  of  dashes. 


5.3.15.5  Subroutine  PLTISO 


Subroutine  PLTISO  is  a  contour  plot  with  isolines  on  a  rectangular  grid. 
Calling  Sequence:  pltiso  (spcsig,  chts,  logpl,  acloc,  spcdir) 


Data  Declaration:  Real 

Logical 


Arguments: 


spcsig 


acloc 


spcdir 


spcsig,  chts,  acloc,  spcdir 
logpl 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

Real  array  with  dimension  of  at  least  nhts, 
containing  contour  heights. 

Logical  array  used  as  working  space  with  dimension 
(nfreq,  nangl ). 

\otype\  =  2:  2-D  spectrum  at  one  output  location. 
\otype\  =  1 :  1-D  spectra  at  output  locations. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 
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(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Common  Blocks:  CPLT1 


5.3.15.6  Subroutine  PLTLN1 


Subroutine  PLTLN1  plots  a  (dashed)  line. 


Calling  Sequence: 

pltlnl 

(xl,  x2,  yl,  y2,  dashln) 

Data  Declaration: 

Real 

xl,  x2,  yl,  y2,  dashln 

Arguments: 

xl 

X-coordinate  of  starting  point. 

x2 

X-coordinate  of  end  point. 

yi 

Y-coordinate  of  starting  point. 

y2 

Y-coordinate  of  end  point. 

dashln 

Length  of  dashes. 

5.3.15.7  Subroutine  PLTSEG 


Subroutine  PLTSEG  computes  coordinates  of  the  begin  and  end  points  of  a  line  starting 
on  a  circle  with  radius  radc  with  an  end  point  on  the  side  of  a  square  box  with  size 
psmax.  The  direction  of  the  line  is  psi  degrees. 


Calling  Sequence:  pltseg  (radc,  psmax,  psi,  xl,  x2,  yl,y2) 


Data  Declaration: 

Real 

Arguments: 

radc 

psmax 

psi 

xl 

x2 

yi 

y2 

radc,  psmax,  psi,  xl,  x2,  yl,  y2 

Radius  of  inner  circle. 

Size  of  outer  box. 

Direction  in  degrees. 
X-coordinate  of  starting  point. 
X-coordinate  of  end  point. 
Y-coordinate  of  starting  point. 
Y-coordinate  of  end  point. 


5.3.15.8  Subroutine  PLT2DS 

Subroutine  PLT2DS  is  a  polar  contour  plot  of  2-D  spectrum. 
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Calling  Sequence:  plt2ds  (norms2,  spcsig,  rcir,  logpl,  acloc,  nhts,  chts,  iln,  spcdir) 

Data  Declaration:  Real  spcsig,  spcdir,  acloc,  rcir,  chts 

Logical  logpl 

Integer  norms2,  nhts,  iln 

Parameter  specifying  normalization. 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

Radii  of  circles. 

Logical  array  used  as  working  space  with  dimension 
(nfreq,  nangl). 

\otype\  =  2:  2-D  spectrum  at  one  output  location. 
\otype\  =  1 :  1-D  spectra  at  output  locations. 

Number  of  contour  heights  (maximum  =  14). 

Real  array  with  dimension  of  at  least  nhts, 
containing  contour  heights. 

Parameter  specifying  whether  the  lines  and  circles 
must  be  plotted: 

=  0  no  lines  and  circles; 

=  1  lines  are  plotted; 

=  2  circles  are  plotted; 

=  3  lines  and  circles  are  plotted. 

(*,1)  Spectral  directions  (radians); 

(*>2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

5.3.15.9  Subroutine  PSIGMA 

Subroutine  PSIGMA  draws  a  sigma. 

Calling  Sequence:  psigma  (x,  y,  dxout3,  dyout3) 

Data  Declaration:  Real  x,  y,  dxout3,  dyout3 

Arguments:  x  X-coordinate  of  lower  left  comer. 

y  Y-coordinate  of  lower  left  comer. 

dxout3  Size  in  X-direction. 

dyout3  Size  in  Y-direction. 
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5.3.15.10  Subroutine  PTHETA 


Subroutine  PTHETA  draws  a  theta. 


Calling  Sequence:  ptheta  (x,  y,  dxout3,  dyout3) 


Data  Declaration:  Real 
Arguments:  x 

y 

dxout3 

dyout3 


x,  y,  dxout3,  dyout3 

X-coordinate  of  lower  left  comer. 
Y-coordinate  of  lower  left  comer. 
Size  in  X-direction. 

Size  in  Y-direction. 


5.3.15.11  Subroutine  SWPLSP 


Calling  Sequence:  swplsp  (rtype,  oreq,  orer,  mip,  ac2,  acloc,  aux,  laux,  voq,  voqr, 
spcsig,  spcdir,  kgrpnt,  dep2) 


Data  Declaration:  Integer 
Real 
Logical 
Character 


oreq,  voqr,  kgrpnt,  mip 

orer,  ac2,  acloc,  aux,  voq,  spcsig,  spcdir,  dep2 
laux 

rtype 


Arguments:  rtype 


oreq 

orer 

mip 

ac2 

acloc 

aux 

laux 

voqr 

voq 

spcsig 

spcdir 


Type  of  output  request: 
spec  for  2-D  spectral  output; 
spel  for  1-D  frequency  spectrum. 

Array  containing  output  requests. 

Real  equivalence  of  oreq. 

Number  of  output  points  in  set  psname. 

Action  densities. 

\otype\  =  2:  2-D  spectrum  at  one  output  location; 
\otype\  =  1:  1-D  spectra  at  output  locations. 

Action  density  at  one  location  in  space. 

Logical  equivalence  of  aux. 

Gives  location  in  array  voq  where  to  find  a  variable. 
Values  of  variables  for  all  output  points. 

Relative  frequencies  in  the  computational  domain  in 
sigma  space. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 
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kgrpnt  Array  grid  point  indices. 

dep2  Depth. 

5.3.15.12  Subroutine  TRAFO 

Subroutine  TRAFO  transforms  polar  coordinates  to  rectangular  coordinates. 

Calling  Sequence:  trafo  (xin,  yin,  xout,  yout,  spcdir) 

Data  Declaration:  Real  xin,  yin,  xout,  yout,  spcdir 

Arguments:  xin  (Normalized)  frequency. 

yin  Direction  (number  of  direction  steps). 

xout  Output  X. 

yout  Output  Y. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 


5.3.16  Preconditioning  Subroutines  (swanprel  FOR  File) 

5.3.16.1  Subroutine  BACKUP 

Subroutine  BACKUP  is  a  backup  current  state  of  the  wave  Field  to  a  file. 

Calling  Sequence:  backup  (ac2,  spcsig,  spcdir,  kgrpnt,  xcgrid,  ycgrid) 

Data  Declaration:  Real  ac2,  spcsig,  spcdir,  xcgrid,  ycgrid 

Integer  kgrpnt 

Arguments:  ac2  Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

spcdir  (*>1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 
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kgrpnt  Indirect  addresses  for  grid  points. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction. 


5.3.16.2  Subroutine  CGBOUN 


Subroutine  CGBOUN  determines  an  array  containing  all  points  of  (closed) 
boundary/boundaries  within  the  computational  grid. 


Calling  Sequence:  cgboun  (kgrpnt,  kgrbnd) 


Data  Declaration:  Integer 


kgrpnt,  kgrbnd 


Arguments: 


kgrpnt  Indirect  addresses  for  grid  points, 

kgrbnd  Array  containing  all  boundary  points  (+  2  extra 

zeros  as  area  separators  for  all  separated  areas). 


5.3.16.3  Subroutine  CGINIT 


Subroutine  CGINIT  initializes  arrays  for  description  of  the  computational  grid. 


Calling  Sequence:  cginit  (pool,  rpool,  logcom) 


Data  Declaration: 


Integer 

Real 

Logical 


pool 

rpool 

logcom 


Arguments: 


pool  Dynamic  data  pool. 

rpool  Real  equivalence  of  pool. 

logcom  The  logical  variable  logcom  has  a  record  about 

which  commands  have  been  given  to  know  if  all  the 
information  for  certain  command  is  available. 


5.3.16.4  Subroutine  INITVA 

Subroutine  INITVA  processes  command  INIT  and  computes  the  initial  state  of  the  wave 
field. 

Calling  Sequence:  initva  (ac2,  spcsig,  edirs,  spcdir,  kgrpnt,  xcgrid,  ycgrid,  logcom, 
xytst) 

Data  Declaration:  Real  spcsig,  spcdir,  xcgrid,  ycgrid,  ac2,  edirs 
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Integer  kgrpnt,  xytst 

Logical  logcom 


Arguments: 


ac2 

spcsig 

edirs 

spcdir 


kgrpnt 

xcgrid 

ycgrid 

logcom 

about 


xytst 


Action  density  as  function  of  D,  S,  X,  Y  at  time  T. 
Relative  frequencies  in  computational  domain  in 
sigma  space. 

Not  used. 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

Indirect  addresses  for  grid  points. 

X-coordinate  of  computational  grid  in  x  direction. 
Y-coordinate  of  computational  grid  in  y  direction. 
The  logical  variable  logcom  has  a  record 

which  commands  have  been  given  to  know  if  all  the 
information  for  certain  command  is  available. 

Test  points. 


5.3.16.5  Logical  Function  PVALID 

Subroutine  PVALID  finds  whether  or  not  a  couple  (ix,  iy )  represents  a  valid  grid  point. 
Calling  Sequence:  pvalid  (ix,  iy,  kgrpnt) 

Data  Declaration:  Integer  ix,  iy,  kgrpnt 

Arguments:  ix,  iy  X-  and  y-indices  of  the  point  under  consideration, 

kgrpnt  Indirect  addresses  for  grid  points. 

5.1.16.6  Subroutine  SEPARAREA 

Subroutine  SEPARAREA  separates  the  areas  that  could  be  connected  with  a  one  cell 
connection. 

Calling  Sequence:  separarea  (ix,  iy,  kgrpnt,  idir) 

Data  Declaration:  Integer  ix,  iy,  kgrpnt,  idir 
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Arguments:  ix,  iy  X-  and  y-indices  of  point  under  consideration. 

kgrpnt  Indirect  addresses  for  grid  points, 

idir  Index  for  direction. 

5.3.16.7  Subroutine  SINPGR 

Subroutine  SINPGR  reads  parameters  of  an  input  grid. 

Calling  Sequence:  sinpgr  (igridl ,  igrid2,  snameg,  outps,  xcgrid,  ycgrid) 

Data  Declaration:  Real  xcgrid,  ycgrid,  outps 

Integer  igridl,  igrid2 

Character  snameg 

Arguments:  igridl  Grid  number  for  which  parameters  are  read. 

igrid2  Grid  number  for  which  parameters  are  read  only 

relevant  if  >  0. 

snameg  Name  of  output  frame  corresponding  to  input  grid, 

outps  Array  storing  output  frame  data, 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction. 

Common  Blocks:  REFNRS 

SWCOMG 
SWFYSP 
SWGRID 
SWTEST 

swurrv 

TESTDA 

TIMFIL 

5.3.16.8  Subroutine  SREDEP 

Subroutine  SREDEP  reads  depths  and/or  currents. 

Calling  Sequence:  sredep  (pool,  lwindr,  lwindm,  logcom,  rpool) 

Data  Declaration:  Integer  pool,  lwindr,  lwindm 

Real  rpool 

Logical  logcom 

Arguments:  pool  Output  variable  that  is  filled  with  computational 

data  needed  for  the  simulation  by  SWAN. 
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Iwindr  Describes  type  of  wind  information  being  read. 

Iwindm  Describes  wind  input  physics  mode, 
logcom  The  logical  variable  logcom  has  a  record  about 

which  commands  have  been  given  to  know  if  all  the 
information  for  certain  command  is  available, 
rpool  Real  equivalence  of  pool  array. 

5.3.16.9  Subroutine  SSFILL 

Subroutine  SSFILL  discretizes  in  frequency  (sigma)  and  direction  (theta). 

Calling  Sequence:  ssfill  (spcsig,  spcdir) 

Data  Declaration:  Real  spcsig,  spcdir 

Arguments:  spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

5.3.16.10  Subroutine  SWDIM 

Subroutine  SWDIM  computes  depths  and  currents  by  bilinear  interpolation  and  usually 
writes  to  file  INSTR. 

Calling  Sequence:  swdim  (kgrpnt,  depth,  xcgrid,  ycgrid,  xytst) 

Data  Declaration:  Real  xcgrid,  ycgrid,  depth 

Integer  kgrpnt,  xytst 

Arguments:  kgrpnt  Indirect  addresses  for  grid  points. 

depth  The  water  depth  array. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction, 

xytst  Test  point. 
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5.3.16.11  Subroutine  SWREAD 

Subroutine  SWREAD  reads  and  processes  the  user  commands  describing  the  model. 

Calling  Sequence:  swread  (comput,  pool,  rpool) 

Data  Declaration:  Real  rpool 

Integer  pool 

Character  comput 

Arguments:  comput  Output  variable  that  determines  the  sort  of 

computation  to  be  performed  by  SWAN: 

=  comp  Computation  requested; 

=  noco  No  computation  but  output  requested; 

=  retr  Retrieve  data  from  previous  computation; 
=  stop  Make  computation,  output  and  stop, 

pool  Output  variable  that  is  filled  with  computational 

data  needed  for  the  simulation  by  SWAN, 
rpool  Real  equivalence  for  pool. 

Common  Blocks:  CBOUP 
COMPDA 
LEESDA 
LEESDN 
NAMES 
OUTPDA 
REFNRS 
SWANWL 
SWCOMG 
SWFYSP 
SWGRID 
SWNAME 
SWNUMS 

swurrv 

SWTEST 

TESTDA 

TIMCOM 

TIMRED 

WAMBOU 

WFILNM 
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5.3.16.12  Logical  Function  VALIDBP 

Subroutine  VALIDBP  checks  to  see  whether  or  not  the  point  with  index  (ix,  iy )  can  be  a 
valid  boundary  point. 

Calling  Sequence:  validbp  (ix,  iy,  kgrpnt,  wnp) 

Data  Declaration:  Integer  ix,  iy,  kgrpnt,  wnp 

Arguments:  ix,  iy  X-  and  y-indices  of  point  under  consideration, 

kgrpnt  Indirect  addresses  for  grid  points, 

wnp  Number  of  wet  neighboring  points. 


5.3.17  File  Two  of  the  Preconditioning  Subroutines  (swanprel  FOR  File) 

5.3.17.1  Subroutine  BCFILE 

Subroutine  BCFILE  reads  file  data  for  boundary  condition. 

Calling  Sequence:  bcfile  (fbcnam,  bctype,  bfiled,  bsploc,  bspdir,  rbsdir,  bspfrq,  rbsfrq, 
bgridp,  bspaux,  xcgrid,  ycgrid,  kgrpnt,  xytst,  kgrbnd,  donall) 

Data  Declaration:  Real  rbsdir,  rbsfrq,  xcgrid,  ycgrid 

Integer  bspdir,  bspfrq,  bfiled,  bspaux,  kgrpnt,  bgridp, 

bsploc,  xytst,  kgrbnd 
Character  fbcnam,  bctype 

Logical  donall 

Arguments:  fbcnam 

bctype 
bfiled 
bsploc 

bspdir 
rbsdir 
bspfrq 
rbsfrq 
bgridp 
bspaux 
xcgrid 
ycgrid 
kgrpnt 
xytst 


Filename  of  boundary  data  file. 

If  value  is  "NEST"  nesting  b.c. 

Data  concerning  boundary  condition  files. 

Place  in  array  bspecs  where  to  store  interpolated 
spectra. 

Spectral  directions  of  input  spectrum. 

Real  equivalence  of  bspdir. 

Spectral  frequencies  of  input  spectrum. 

Real  equivalence  of  bspfrq. 

Data  concerning  boundary  grid  points. 

Auxiliary  array  used  for  interpolation. 
X-coordinate  of  computational  grid  points. 
Y-coordinate  of  computational  grid  points. 
Indirect  addresses  of  grid  points. 
lx,  iy  of  test  points. 
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kgrbnd  Array  of  boundary  grid  points, 

donall  Declares  if  the  nesting  boundary  is  open  or  closed. 

Donall  is  defined  by  the  users. 

5.3.17.2  Subroutine  BC_POINTS 

Subroutine  BC_POINTS  interpolates  grid  points  to  the  SWAN  computational  grid. 

Calling  Sequence:  bc_points  (bsploc,  bgridp,  bspaux,  xcgrid,  ycgrid,  kgrpnt,  xytst, 
kgrbnd,  xp2,  yp2,  boun_coun,  nbounc,  donall) 

Data  Declaration:  Real  xcgrid,  ycgrid,  xp2,  yp2 

Integer  bsploc,  bgridp,  bspaux,  kgrpnt,  xytst,  kgrbnd, 

boun_coun,  nbounc 
Logical  donall 

Arguments:  bsploc  Place  in  array  bspecs  for  storing  interpolated 

spectra. 

bgridp  Data  concerning  boundary  grid  points, 

bspaux  Auxiliary  array  used  for  interpolation, 

xcgrid  X-coordinate  of  computational  grid  points, 

ycgrid  Y-coordinate  of  computational  grid  points, 

kgrpnt  Indirect  addresses  of  computational  grid  points, 

xytst  Array  of  (ix,  iy )  of  test  points, 

kgrbnd  Array  of  boundary  grid  points. 

xp2  Problem  x-coordinate  of  a  boundary  location. 

yp2  Problem  y-coordinate  of  a  boundary  location. 

boun_coun  Counter  show  of  the  existing  boundary  point, 

nbounc  Maximum  number  of  boundary  points, 

donall  Declares  if  the  nesting  boundary  is  open  or  closed. 

Donall  is  defined  by  the  users. 

5.3.17.3  Subroutine  BCWAMN 

Subroutine  BCWAMN  reads  file  data  for  WAM  nesting  boundary  conditions. 

Calling  Sequence:  bcwamn  (fbcnam,  bctype,  bfiled,  bsploc,  bspdir,  rbsdir,  bspfrq, 
rbsfrq,  bgridp,  bspaux,  rbsaux,  xcgrid,  ycgrid,  kgrpnt,  xytst) 

Data  Declaration:  Real  rbsaux,  rbsdir,  rbsfrq,  xcgrid,  ycgrid 

Integer  bspaux,  bspdir,  bspfrq,  bfiled,  bgridp,  kgrpnt, 

bsploc,  xytst 

Character  fbcnam,  bctype 
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Arguments: 


fbcnam 

Filename  of  boundary  data  file. 

bctype 

If  value  is  "NEST”  -»  nesting  b.c. 

bfiled 

Data  concerning  boundary  condition  files. 

bsploc 

Place  in  array  bspecs  that  stores  interpolated 
spectra. 

bspdir 

Spectral  directions  of  input  spectrum. 

rbsdir 

Real  equivalence  of  bspdir. 

bspfrq 

Spectral  frequencies  of  input  spectrum. 

rbsfrq 

Real  equivalence  of  bspfrq. 

bgridp 

Data  concerning  boundary  grid  points. 

bspaux 

Auxiliary  array  used  for  interpolation. 

rbsaux 

Real  equivalence  of  bspaux. 

xcgrid 

X-coordinate  of  computational  grid  points. 

ycgrid 

Y-coordinate  of  computational  grid  points. 

kgrpnt 

Indirect  addresses  of  grid  points. 

xytst 

lx,  iy  of  test  points. 

5.3.17.4  Subroutine  BCWW3N 


Subroutine  BCWW3N  reads  file  data  for  WAVEWATCH  in  boundary  conditions. 


Calling  Sequence:  bcww3n  (fbcnam,  bctype,  bfiled,  bsploc,  bspdir,  rbsdir,  bspfrq, 
rbsfrq,  bgridp,  bspaux,  xcgrid,  ycgrid,  kgrpnt,  xytst,  kgrbnd, 
donall) 


Data  Declaration:  Real 

Integer 


Character 

Logical 


xcgrid,  ycgrid,  rbsdir,  rbsfrq 

bfiled,  kgrbnd,  xytst,  kgrpnt,  bgridp,  bsploc,  bspaux, 
bspdir,  bspfrq 
fbcnam,  bctype 
donall 


Arguments: 


fbcnam 

bctype 

bfiled 

bsploc 

bspdir 

rbsdir 

bspfrq 

rbsfrq 

bgridp 

bspaux 

xcgrid 


Filename  of  boundary  data  file. 

Boundary  condition  type,  is  “WW3N”  in  this  case. 
Data  concerning  boundary  condition  files. 

Place  in  array  bspecs  where  to  store  interpolated 
spectra. 

Spectral  directions  of  input  spectrum. 

Real  equivalence  of  bspdir. 

Spectral  frequencies  of  input  spectrum. 

Real  equivalence  of  bspfrq. 

Data  concerning  boundary  grid  points. 

Auxiliary  array  used  for  interpolation. 
X-coordinate  of  computational  grid  points. 
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ycgrid  Y-coordinate  of  computational  grid  points, 

kgrpnt  Indirect  addresses  of  computational  grid  points, 

xytst  Array  of  (ix,  iy)  of  test  points, 

kgrbnd  Array  of  boundary  grid  points, 

donall  Declares  if  the  boundary  is  open  or  closed. 

5.3.17.5  Logical  Function  BOUNPT 

Subroutine  BOUNPT  determines  whether  a  grid  point  is  a  point  where  a  boundary 

condition  can  be  applied. 

Calling  Sequence:  bounpt  (ix,  iy,  kgrpnt) 

Data  Declaration:  Integer  ix,  iy,  kgrpnt 

Arguments:  ix,  iy  Grid  point  indices. 

kgrpnt  Indirect  addresses  of  grid  points. 

5.3.17.6  Subroutine  RETSTP 

Subroutine  RETSTP  reads  test  points,  generates  output  point  set  TESTPNTS,  and  reads 

source  term  filenames. 

Calling  Sequence:  retstp  (mptst,  xytst,  kgrpnt,  kgrbnd,  xcgrid,  ycgrid,  spcsig,  spcdir, 
ioutda,  routda) 

Data  Declaration:  Real  xcgrid,  ycgrid,  spcsig,  spcdir,  routda 

Integer  mptst,  xytst,  kgrpnt,  kgrbnd,  ioutda 

Arguments:  mptst  Maximum  number  of  test  points. 

xytst  Grid  point  indices  of  test  points, 

kgrpnt  Indirect  addresses  of  grid  points, 

kgrbnd  Array  of  boundary  grid  points, 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 
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ioutd  Integer  equivalence  of  outda. 

routda  Real  equivalence  of  outda. 


5.3.17.7  Function  SIRAY 

Subroutine  SIRAY  searches  the  first  point  on  a  ray  where  the  depth  is  dp. 


Calling  Sequence: 

siray  (dp,  xpl . 

,  ypl ,  xp2,  yp2,  xx,  yy,  botdep,  botlev,  watlev) 

Data  Declaration: 

Logical 

botdep 

Real 

botlev,  watlev,  xpl,  ypl,  xp2,  yp2,  xx,  yy,  dp 

Arguments: 

dp 

Depth. 

xpl 

X-coordinate  start  point  of  ray. 

ypi 

Y-coordinate  start  point  of  ray. 

xp2 

X-coordinate  end  point  of  ray. 

yp2 

Y-coordinate  end  point  of  ray. 

XX 

X-coordinate  point  with  depth  dp. 

yy 

Y-coordinate  point  with  depth  dp. 

botdep 

Indicates  that  bottom  depth  is  being  read. 

botlev 

Bottom  levels. 

watlev 

Water  levels. 

5.3.17.8  Subroutine  SPROUT 


Subroutine  SPROUT  reads  and  processes  the  user  output  commands. 


Calling  Sequence: 

sprout  (found,  outda,  routda,  spcsig,  xcgrid,  ycgrid,  kgrpnt,  botlev, 
watlev) 

Data  Declaration: 

Real 

routda,  spcsig,  xcgrid,  ycgrid,  botlev,  watlev 

Integer 

outda,  kgrpnt 

Logical 

found 

Arguments: 

found 

Parameter  indicating  whether  command  being 
processed  is  found  (value  True)  or  not  (False). 

outda 

Array  containing  output  data. 

routda 

Real  equivalence  of  outda. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

xcgrid 

X-coordinate  of  computational  grid  in  x  direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y  direction. 

kgrpnt 

Indirect  addresses  of  the  computational  grid  points. 
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botlev  Bottom  levels, 

watlev  Water  levels. 


5.3.17.9  Subroutine  SVARTP 

Subroutine  SVARTP  converts  keywords  into  an  integer. 

Calling  Sequence:  svartp  (ivtype) 

Data  Declaration:  Integer  ivtype 

Arguments:  ivtype  Type  number  output  variable. 

5.3.17.10  Subroutine  SWBOUN 

Subroutine  SWBOUN  reads  and  processes  boundary  commands. 

Calling  Sequence:  swboun  (bfiles,  bsploc,  rbsloc,  bspdir,  rbsdir,  bspfrq,  rbsfrq, 

bspecs,  mxspec,  bgridp,  bspaux,  rbsaux,  xcgrid,  ycgrid,  kgrpnt, 
spcsig,  spcdir,  beaux,  xytst,  kgrbnd) 

Data  Declaration:  Real  rbsloc,  rbsdir,  rbsfrq,  rbsaux,  xcgrid,  ycgrid,  spcsig, 

spcdir,  bspecs 

Integer  bsploc,  bspdir,  bspfrq,  bspaux,  bfiles,  mxspec, 

beaux,  bgridp,  kgrpnt,  xytst,  kgrbnd 

Arguments:  bfiles  Data  concerning  boundary  condition  files. 

bsploc  Place  in  array  bspecs  where  to  store  interpolated 

spectra. 

rbsloc  Real  equivalence  of  bsploc. 

bspdir  Integer  equivalence  of  rbsdir. 

rbsdir  Spectral  directions  of  input  spectrum. 

bspfrq  Integer  equivalence  of  rbsfrq. 

rbsfrq  Spectral  frequencies  of  input  spectrum. 

bspecs  Array  containing  boundary  spectra. 

mxspec  Number  of  spectra  that  bspecs  can  contain. 

bgridp  Data  concerning  boundary  grid  points. 

bspaux  Auxiliary  array  used  for  interpolation. 

rbsaux  Real  equivalence  of  bspaux. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction. 

kgrpnt  Indirect  addresses  of  grid  points. 

spcsig  Relative  frequencies  in  the  computational  domain  in 
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sigma  space. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
beaux  Auxiliary  array  used  in  this  subroutine, 

xytst  lx,  iy  of  test  points, 

kgrbnd  Array  of  boundary  grid  points. 

5.3.17.11  Subroutine  SWNMPS 

Subroutine  SWNMPS  reads  the  name  of  the  set  of  output  points  and  gets  the  type  and 
number  of  points  in  the  set. 

Calling  Sequence:  swnmps  (outps,  psname,  pstype,  mip,  ierr) 

Data  Declaration:  Integer  outps,  mip,  ierr 

Character  psname,  pstype 

Arguments:  outps  Array  containing  data  on  output  point  sets, 

psname  Output  name, 

pstype  Output  type, 

mip  Number  of  points, 

ierr  Error  status: 

=  0  No  error; 

=  9  End-of-file. 

5.3.17.12  Subroutine  SWREOQ 

Subroutine  SWREOQ  reads  and  processes  the  output  requests. 

Calling  Sequence:  swreoq  (found,  outoq,  outor,  outps,  outpr,  spesig) 

Data  Declaration:  Real  spesig,  outor,  outpr 

Integer  outoq,  outps 

Logical  found 

Arguments:  found  Parameter  indicating  whether  the  command  being 

processed  is  found  (value  True)  or  not  (False), 
outoq  Array  containing  various  parameters  related  to 

output  requests  (plotting). 
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outor  Array  containing  various  parameters  related  to 

output  requests  (plotting). 

outps  Array  containing  data  on  output  point  sets, 

outpr  Real  equivalence  of  outps. 

spcsig  Relative  frequencies  in  the  computational  domain  in 

sigma  space. 

5.3.17.13  Subroutine  SWREPS 

Subroutine  SWREPS  reads  and  processes  the  commands  defining  output  points. 

Calling  Sequence:  swreps  (found,  outps,  outpr,  xcgrid,  ycgrid,  botlev,  watlev) 

Data  Declaration:  Real  xcgrid,  ycgrid,  botlev,  watlev,  outpr 

Integer  outps 

Logical  found 

Arguments:  found  Parameter  indicating  whether  command  being 

processed  is  found  (value  True)  or  not  (False), 
outps  Array  containing  data  on  output  point  sets, 

outpr  Real  equivalence  of  outps. 

xcgrid  X-coordinate  of  computational  grid  in  x  direction, 

ycgrid  Y-coordinate  of  computational  grid  in  y  direction, 

botlev  Bottom  levels, 

watlev  Water  levels. 


5.3.18  SWAN  Service  Routines  (swanser  FOR  File) 

5.3.18.1  Subroutine  AC2TST 

Calling  Sequence:  ac2tst  (xytst,  ac2,  kgrpnt) 

Data  Declaration:  Integer  xytst,  kgrpnt 

Real  ac2 

Arguments:  xytst  Grid  point  indices  of  test  points. 

ac2  Action  density  array, 

kgrpnt  Array  of  indirect  addressing. 
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5.3.18.2  Real  Function  ANGDEG 

Function  ANGDEG  transforms  radians  to  degrees. 

Calling  Sequence:  angdeg  (radian) 

Data  Declaration:  Real  radian 

Arguments:  radian  Radians. 

5.3.18.3  Real  Function  ANGRAD 

Function  ANGRAD  transforms  degrees  to  radians. 

Calling  Sequence:  angrad  (degree) 

Data  Declaration:  Real  degree 

Arguments:  degree  Degrees. 

5.3.18.4  Subroutine  CHGBAS 

Subroutine  CHGBAS  changes  the  x-basis  of  a  discretized  y-function. 

Calling  Sequence:  chgbas  (xl,  x2,  period,  yl,  y2,  nl,  n2,  itest,  prtest) 

Data  Declaration:  Real  x  1 ,  x2,  yl ,  y2,  period 

Integer  nl,  n2,  itest,  prtest 

Arguments:  xl  X-coordinate  of  input  grid. 

*2  X-coordinate  of  output  grid, 

period  Period,  i.e.  x-axis  is  periodic  if  period  >  0  e.g. 

spectral  directions. 

yl  Function  values  of  input  grid. 

y2  Function  values  of  output  grid, 

nl  Number  of  x-values  of  input  grid. 

n2  Number  of  x-values  of  output  grid. 

*test  Integer  variable  which  determines  the  level  of  test 

output. 

prtest  Unit  number  for  output. 
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5.3.18.5  Subroutine  CVCHEK 

Subroutine  CVCHEK  checks  whether  or  not  the  given  curvilinear  grid  is  correct. 

CVCHEK  also  sets  the  value  of  cvleft. 

Calling  Sequence:  cvchek  (kgrpnt,  xcgrid,  ycgrid) 

Data  Declaration:  Integer  kgrpnt 

Real  xcgrid,  ycgrid 

Arguments:  kgrpnt  Array  of  indirect  addressing. 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

5.3.18.6  Subroutine  CVMESH 

Subroutine  CVMESH  finds  location  in  a  curvilinear  grid  for  a  point  given  in  problem 

coordinates. 

Calling  Sequence:  cvmesh  (xp,  yp,  xc,  yc,  kgrpnt,  xcgrid,  ycgrid,  kgrbnd) 

Data  Declaration:  Real  xcgrid,  ycgrid,  xp,  yp,  xc,  yc 

Integer  kgrpnt,  kgrbnd 

Arguments:  xp,  yp  A  point  given  in  problem  coordinates. 

xc,  yc  Same  point  in  computational  grid  coordinates, 

kgrpnt  Array  ( mxc ,  myc )  grid  numbers  if  kgrpnt  <=  1,  the 

point  is  not  in  computational  grid, 
xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

kgrbnd  Lists  all  boundary  grid  points  consecutively. 

5.3.18.7  Real  Function  DEGCNV 

Function  DEGCNV  transforms  degrees  from  Nautical  to  Cartesian  or  vice  versa. 

Calling  Sequence:  degcnv  (degree) 

Data  Declaration:  Real  degree 

Arguments:  degree  Direction  in  Nautical  or  Cartesian  degrees. 
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5.3.18.9  Subroutine  EVALF 


Subroutine  EVALF  evaluates  the  coordinates  (in  problem  coordinates)  of  point  ( xc ,  yc) 
given  in  computational  coordinates. 


Calling  Sequence:  evalf  (xc,  yc,  xvc,  yvc,  xcgrid,  ycgrid) 


Data  Declaration:  Real 


xc,  yc,  xvc,  yvb,  xcgrid,  ycgrid 


Arguments: 


xc,  yc  Point  in  computational  grid  coordinates, 

xvc,  yvc  Same  point  but  in  problem  coordinates, 
xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 


5.3.18.10  Real  Function  GAMMA 


Function  GAMMA  computes  the  transcendental  function  GAMMA. 
Calling  Sequence:  gamma  (xx) 

Data  Declaration:  Real  xx 

Arguments:  xx  X-coordinate  of  the  point. 


5.3.18.11  Function  GAMMLN 

Calling  Sequence:  gammln  (xx) 

Data  Declaration:  Real  xx 

Arguments:  xx  X-coordinate  of  the  point. 

5.3.18.12  Subroutine  HSOBND 

Subroutine  HSOBND  compares  computed  significant  wave  height  with  the  value  of  the 
significant  wave  height  as  described  by  the  user.  If  the  values  differ  more  than,  say,  ten 
percent,  an  error  message  and  the  grid  points  where  the  error  has  been  located  are  given. 

Calling  Sequence:  hsobnd  (ac2,  spcsig,  hsibc,  kgrpnt) 

Data  Declaration:  Real  ac2,  spcsig,  hsibc 

Integer  kgrpnt 
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Arguments:  ac2  Action  density. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

hsibc  Significant  wave  height  given  as  input  on  the 

boundary. 

kgrpnt  Values  of  grid  indices. 


5.3.18.13  Logical  Function  INFRAM 

Subroutine  INFRAM  checks  whether  a  point  given  in  frame  coordinates  is  located  in  the 
plotting  frame  (INFRAM  =  True)  or  not  (INFRAM  =  False). 

Calling  Sequence:  infram  (xqq,  yqq) 

Data  Declaration:  Real  xqq,  yqq 

Arguments:  xqq  X-coordinate  (output  grid)  of  the  point. 

yqq  Y-coordinate  (output  grid)  of  the  point. 

5.3.18.14  Logical  Function  INMESH 

Function  INMESH  finds  whether  or  not  a  given  location  is  in  the  (curvilinear) 
computational  grid. 

Calling  Sequence:  inmesh  (xp,  yp,  xcgrid,  ycgrid,  kgrbnd) 

Data  Declaration:  Real  xp,  yp,  xcgrid,  ycgrid 

Integer  kgrbnd 

Arguments:  xp,  yp  A  point  given  in  problem  coordinates. 

xcgrid  Array  (ix,  iy )  x-coordinate  of  a  grid  point, 

ycgrid  Array  (ix,  iy)  y-coordinate  of  a  grid  point, 

kgrbnd  Array  containing  boundary  grid  points. 

5.3.18.15  Subroutine  KSCIP1 

Subroutine  KSCIP1  interpolates  the  wave  number,  group  velocity  and  n  from  a  table,  and 
calculation  of  the  derivative  of  n  with  respect  to  depth  (=  nd). 
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Calling  Sequence:  kscipl  (mmt,  sig,  d,  k,  eg,  n,  nd) 

Data  Declaration:  Integer  mmt 

Real  sig,  d,  k,  eg,  n,  nd 

Arguments:  mmt  Number  of  frequency-wise  points  in  arrays. 

sig  Relative  frequency  for  which  wave  parameters  must 

be  determined, 
d  Local  depth, 

k  Wave  number, 

eg  Group  velocity, 

n  Ratio  of  group  and  phase  velocity, 

nd  Derivative  of  n  with  respect  to  d  computation  must 

be  done. 

5.3.18.16  Subroutine  NEWTON 

Subroutine  NEWTON  solves  equations  and  finds  a  point  {xc,  yc )  in  a  curvilinear  grid 
(computational  grid)  for  a  given  point  (. xp ,  yp)  in  a  Cartesian  grid  (problem  coordinates). 

Calling  Sequence:  newton  (xp,  yp,  xegrid,  yegrid,  kgrpnt,  mxitnr,  xc,  yc,  find,  kgrbnd) 


Data  Declaration:  Real 

xp,  yp,  xegrid,  yegrid,  xc,  yc 

Integer 

kgrbnd 

Logical 

find 

Arguments: 

xp 

X-coordinate  in  problem  coordinates. 

yp 

Y-coordinate  in  problem  coordinates. 

xegrid 

X-coordinate  of  computational  grid  in  x-direction 

yegrid 

Y-coordinate  of  computational  grid  in  y-direction. 

kgrpnt 

Grid  addresses. 

mxitnr 

Maximum  number  of  iterations. 

xc 

X-coordinate  in  computational  coordinates. 

yc 

Y-coordinate  in  computational  coordinates. 

find 

Determines  whether  or  not  xc  and  yc  are  found. 

kgrbnd 

Grid  addresses  of  the  boundary  points. 

5.3.18.17 

Subroutine  NEWT1D 

Subroutine  NEWT  ID  solves  equations  and  finds  a  point  {xc,  yc)  in  a  curvilinear  1-D  grid 
(computational  grid)  for  a  given  point  {xp,  yp)  in  a  Cartesian  grid  (problem  coordinates). 

Calling  Sequence:  newtld  (xp,  yp,  xegrid,  yegrid,  kgrpnt,  mxitnr,  xc,  yc,  find) 
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Data  Declaration:  Real 

Integer 

Logical 


xp,  yp,  scgrid,  ycgrid,  xc,  yc 

kgrpnt,  mxitnr 

find 


Arguments: 


xp 


yp 

xcgrid 

ycgrid 

kgrpnt 

mxitnr 

xc 

yc 

find 


X-coordinate  in  problem  coordinates. 
Y-coordinate  in  problem  coordinates. 
X-coordinate  of  computational  grid  in  x-direction. 
Y-coordinate  of  computational  grid  in  y-direction. 
Grid  addresses. 

Maximum  number  of  iterations. 

X-coordinate  in  computational  coordinates. 
Y-coordinate  in  computational  coordinates. 
Whether  or  not  xc  and  yc  are  found. 


5.3.18.18  Subroutine  OBSTLINE 


Subroutine  OBSTLINE  finds  out  whether  or  not  vector  ( xl ,  yl)  lies  above  the  line  piece 
through  (x3,  y3 )  and  (x4,  y4 ). 


Calling  Sequence:  obstline  (xl,  yl,  x2,  y2,  x3,  y3,  x4,  y4,  xgtl,  exc) 


Data  Declaration:  Real 

Logical 


xl,  yl,  x2,  y2,  x3,  y3,  x4,  y4 
xgtl,  exc 


Arguments: 


xl,  yl  User  coordinates  of  one  end  of  the  grid  link. 

x2,  y2  User  coordinates  of  the  other  end  of  the  grid  link. 

x3,  y3  User  coordinates  of  one  end  of  the  obstacle  side. 

x4,  y4  User  coordinates  of  the  other  end  of  the  obstacle 

side. 

xgtl  Indicates  whether  (xl,  yl)  is  situated  above  line 

piece  (x3,  y3)  (x4,  y4). 

exc  Indicates  whether  x4  =  x3,  which  results  in 

exceptional  situation  (line  parallel  to  y-axis). 


5.3.18.19  Recursive  Subroutine  OBSTMOVE 

Subroutine  OBSTMOVE  moves  obstacle  points  (x3,  y3)  and  (x4,  y4)  a  bit  if 
computational  grid  cell  (xl,  yl)  is  on  the  obstacle  line  piece. 

Calling  Sequence:  obstmove  (obsta,  xcgrid,  ycgrid,  kgrpnt) 

Data  Declaration:  Real  xcgrid,  ycgrid 
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Integer  obsta,  kgrpnt 

Arguments:  obsta  Array  of  obstacle  parameters. 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

kgrpnt  Indirect  addressing  for  computational  grid  points. 

5.3.18.20  Subroutine  PCOAST 

Subroutine  PCOAST  plots  lines  defined  by  the  command  LINE. 

Calling  Sequence:  pcoast  (dines,  diner) 

Data  Declaration:  Real  diner 

Integer  dines 

Arguments:  dines  Line  parameter. 

diner  Real  equivalence  to  clines. 

5.3.18.21  Subroutine  PLNAME 

Subroutine  PLNAME  writes  the  name  of  a  place  or  region  in  a  plot. 

Calling  Sequence:  plname  (pname,  nsym,  xpp,  ypp,  isit,  symsz) 

Data  Declaration:  Character  pname 

Real  xpp,  ypp,  symsz 

Integer  nsym,  isit 

Arguments:  pname  Name  of  town  or  region  to  be  plotted. 

nsym  Number  of  characters  of  the  name. 

XPP  X-coordinate  of  the  reference  point  in  the  problem 

grid. 

ypp  Y-coordinate  of  the  reference  point  in  the  problem 

grid. 

•sit  Type  of  name  (0  or  1 :  the  name  is  plotted  right  of 

the  reference  point  with  (1)  or  without  (0)  a  mark  at 
the  point,  2:  the  reference  point  is  at  the  middle  of 
the  name  (region)). 

symsz  Size  of  the  characters  in  the  plot  (cm). 
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5.3.18.22  Subroutine  PLOSIT 

Subroutine  PLOSIT  draws  a  plot  with  the  location  of  the  output  point  sets. 

Calling  Sequence:  plosit  (outps,  outpr,  psname) 

Data  Declaration:  Character  psname 

Real  outpr 

Integer  outps 

Arguments:  outps  Array  containing  data  on  output  point  sets, 

outpr  Real  equivalence  of  outps. 

psname  Name  of  one  output  point  set  to  be  plotted  if  blank, 

all  point  sets  will  be  plotted. 

5.3.18.23  Subroutine  PLOTU 

Subroutine  PLOTU  moves  the  pen  to  a  point  given  in  problem  coordinates  with  pen  up 
(moving  the  pen)  or  with  pen  down  (drawing  a  line  segment). 

Calling  Sequence:  plotu  (xx,  yy,  updown) 

Data  Declaration:  Real  xx,  yy 

Character  updown 

Arguments:  xx  X-coordinate  of  the  point. 

yy  Y-coordinate  of  the  point, 

updown  Indicating  whether  the  pen  must  be  up  or  down 
when  moving  to  the  point. 

5.3.18.24  Subroutine  PNAMES 

Subroutine  PNAMES  plots  the  names  of  places  and  regions  defined  with  the  command 
PLACE. 

Calling  Sequence:  pnames  (places,  placer) 

Data  Declaration:  Integer  places 

Real  placer 

Arguments:  places  Array  containing  places  and  their  locations, 

placer  Real  equivalence  of  places. 
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5.3.18.25  Subroutine  READXY 

Subroutine  READXY  reads  x  and  y  and  initializes  offset  values  xoffs  and  yoffs. 

Calling  Sequence:  readxy  (namx,  namy,  xx,  yy,  kont,  xsta,  ysta) 

Data  Declaration:  Real  xx,  yy,  xsta,  ysta 

Character  namx,  namy,  kont 

Arguments:  namx,  namy  Names  of  the  two  coordinates  given  in  the  user 

manual. 

xx,  yy  Values  of  x  and  y,  taking  into  account  offset, 

kont  If  values  are  missing  see  documentation  of  ENDBLE 

(Ocean  Pack  documentation), 
xsta,  ysta  Standard  values  of  x  and  y. 

5.3.18.26  Subroutine  REFIXY 

Subroutine  REFIXY  initializes  offset  values  xoffs  and  yoffs,  and  shifts  xx  and  yy. 

Calling  Sequence:  refixy  (nds,  xx,  yy,  ierr) 

Data  Declaration:  Real  xx,  yy 

Integer  nds,  ierr 

Arguments:  nds  File  reference  number. 

xx,  yy  Values  of  x  and  y  taking  into  account  offset, 

ierr  Error  indicator:  When  ierr : 

=  0  No  error; 

=  -1  End-of-file; 

=  -2  Read  error. 

5.3.18.27  Subroutine  REFLECT 

Subroutine  REFLECT  computes  reflections  near  obstacles. 

Calling  Sequence:  reflect  (ac2,  ac2ref,  imatra,  x  1 ,  yl ,  x2,  y2,  x3,  y3,  x4,  y4,  xgtl,  exc, 
cax,  cay,  rdx,  rdy,  loop,  trcoef,  refO,  anybin) 

Data  Declaration:  Integer  loop 

Real  ac2,  imatra,  xl ,  yl ,  x2,  y2,  x3,  y3,  x4,  y4,  cax,  cay, 

rdx,  rdy,  ac2ref,  trcoef,  refO 
Logical  anybin,  xgtl,  exc 
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Arguments:  ac2  (Non-stationary  case)  action  density  as  function  of 

D,  S,  X,  Y  at  time  T  +  DT. 

ac2ref  (Non-stationary  case)  reflected  action  density  as 

function  of  D,  S,  X,  Y  at  time  T  +  DT. 
imatra  Right-hand  side  of  matrix  equation, 

x  1 ,  y  1  Coordinates  of  computational  grid  point  under 

consideration. 

x2,  y2  Coordinates  of  computational  grid  point  neighbor. 

x3,  y3  User  coordinates  of  one  end  of  obstacle  side. 

x4,  y4  User  coordinates  of  the  other  end  of  the  obstacle 

side. 

xgtl  Indicates  whether  (xl,  yl)  is  situated  above  line 

piece  (x3,  y3 )  (x4,  y4). 

exc  Indicates  whether  x4  =  x3,  which  results  in  an 

exception  situation  (line  parallel  to  y-axis). 
cax,  cay  Propagation  velocity. 

rdx,  rdy  Array  containing  spatial  derivative  coefficients, 

loop  Indicates  which  link  is  analyzed: 

1  -»  neighbor  in  x; 

2  — >  neighbor  in  y. 

trcoef  User  defined  transmission  coefficient. 

refO  User  defined  reflection  coefficient  (0  <=  refO  <= 

1). 

anybin  Set  a  particular  bin  True  or  False  depending  on 

sector. 

5.3.18.28  Subroutine  SETUPP 

Subroutine  SETUPP  computes  the  forces /(rho*grav)  responsible  for  the  setup  and  adds 
the  setup  to  the  depth. 

Calling  Sequence:  setupp  (kgrpnt,  mstpda,  setpda,  ac2,  dep2,  depsav,  setup2,  wforcx, 
wforcy,  xcgrid,  ycgrid,  spcsig,  spcdir,  itsw,  iter,  upperi,  loperi) 


Data  Declaration: 

Real 

setpda,  ac2,  dep2,  depsav,  setup2,  wforcx,  wforcy, 
xcgrid,  ycgrid,  spcsig,  spcdir,  upperi,  loperi 

Integer 

kgrpnt,  mstpda,  itsw,  iter 

Arguments: 

kgrpnt 

Indirect  addresses  for  grid  points. 

mstpda 

Number  of  (aux.)  data  per  grid  point  value  is  set  at 
10  in  swancoml.ftn. 

setpda 

Data  for  computation  of  Setup: 

=  1  Depth; 
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=  2  Previous  estimate  of  Setup; 

=  3  X-comp  of  force; 

=  4  Y-comp  of  force; 

=  5  Rad.  stress  computation  RSxx; 

=  6  RSxy; 

=  7  RSyy. 

setpda(*,  *,  5  mstpda)  is  used  as  a  work  array. 
ac2  Action  density  as  a  function  of  D,  S,  X,  Y  at  time 

T  +  DT. 

dep2  Total  depth,  including  Setup  on  entry:  includes 

previous  estimate  of  Setup  on  exit:  includes  new 
estimate  of  Setup. 

depsav  Depth  following  from  bottom  and  water  levels. 

setup2  Setup  in  grid  points,  using  indirect  addresses, 

wforcx  Force  x-component. 

wforcy  Force  y-component. 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

spcsig  Relative  frequencies  in  computational  domain  in 

sigma  space. 

spcdir  (*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions, 
itsw  Time  step  counter  for  SWAN, 

iter  Iteration  counter. 

upperi  Only  relevant  for  computation  in  periodic  domain, 

loperi  Only  relevant  for  computation  in  periodic  domain. 

5.3.18.29  Subroutine  SETUP2D 

Subroutine  SETUP2D  computes  the  setup ,  change  of  the  water  level  by  waves.  A  Poisson 
equation  is  solved  in  general  coordinates. 


Calling  Sequence:  setup2d  (xcgrid,  ycgrid,  wfrcx,  wfrcy,  depth,  setup,  upperi,  loperi, 
nwkarr,  wkarr,  itsw,  iter) 


Data  Declaration: 

Integer 

itsw,  ier,  nwkarr 

Real 

xcgrid,  ycgrid,  wfrcx,  wfrcy,  depth,  setup,  upperi, 
loperi,  nwkarr,  wkarr,  itsw,  iter 

Arguments: 

xcgrid 

X-coordinates. 
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ycgrid 

Y-coordinates. 

wfrcx 

Force  x-component. 

wfrcy 

Force  y-component. 

depth 

Depth. 

setup 

Unknown  setup;  to  be  computed  indirect 
addressed. 

upperi 

Only  relevant  for  computation  in  periodic  domain. 

loperi 

Only  relevant  for  computation  in  periodic  domain. 

nwkarr 

Dimension  for  work  array. 

wkarr 

Work  array. 

itsw 

Time  step  counter  for  SWAN. 

iter 

Iteration  number. 

5.3.18.30  Subroutine  SINTRP 


Subroutine  SINTRP  interpolates  spectra. 


Calling  Sequence: 

sintrp 

(wl,  w2,  fll ,  fl2,  fl,  spcdir,  spcsig) 

Data  Declaration: 

Real 

wl,  w2,  fll,  fl2,  fl,  spcdir,  spcsig 

Arguments: 

wl 

Weighting  coefficient  for  spectrum  one. 

w2 

Weighting  coefficient  for  spectrum  two. 

fll 

Input  spectrum  one. 

fl2 

Input  spectrum  two. 

fl 

Interpolated  spectrum. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

5.3.18.31  Subroutine  SSHAPE 

Subroutine  SSHAPE  calculates  energy  density  at  boundary  point  (x,  y,  sigma,  theta). 

Calling  Sequence:  sshape  (acloc,  spcsig,  spcdir,  fshapl,  dshapl) 

Data  Declaration:  Real  acloc,  spcsig,  spcdir 

Integer  fshapl,  dshapl 
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Arguments: 

acloc 

Energy  density  at  a  point  in  space. 

spcsig 

Relative  frequencies  in  computational  domain  in 
sigma  space. 

spcdir 

(*,1)  Spectral  directions  (radians); 

(*,2)  Cosine  of  spectral  directions; 

(*,3)  Sine  of  spectral  directions; 

(*,4)  CosineA2  of  spectral  directions; 

(*,5)  Cosine*sine  of  spectral  directions; 

(*,6)  SineA2  of  spectral  directions. 

fshapl 

Shape  of  spectrum: 

=  1  Pierson-Moskowitz  spectrum; 

=  2  JONSWAP  spectrum; 

=  3  bin; 

=  4  Gauss  curve; 

If  >  0  Period  is  interpreted  as  peak  per; 

If  <  0  Period  is  interpreted  as  mean  per. 

dshapl 

Directional  distribution. 

Common  Blocks:  PSHAPE 
SPPARM 


5.3.18.32  Subroutine  SWOBST 


Subroutine  SWOBST  reads  from  the  pool  array  all  the  data  required  to  find  obstacles  and 
uses  subroutine  TCROSS2  to  find  them. 


Calling  Sequence: 

swobst  (obsta, 

,  xcgrid,  ycgrid,  kgrpnt,  cross) 

Data  Declaration: 

Real 

xcgrid,  ycgrid 

Integer 

kgrpnt,  obsta,  cross 

Arguments: 

obsta 

Array  of  obstacle  parameters. 

xcgrid 

X-coordinate  of  computational  grid  in  x-direction. 

ycgrid 

Y-coordinate  of  computational  grid  in  y-direction. 

kgrpnt 

Indirect  addressing  for  computational  grid  points. 

cross 

Array  that  contains  0's  if  there  is  no  obstacle 
crossing.  If  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor,  cross  is  equal  to  the 
number  of  the  obstacles. 
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5.3.18.33  Subroutine  SWTRCF 


Subroutine  SWTRCF  takes  the  value  of  transmission  coefficient  from  the  pool  given  by 
the  user  for  obstacle  transmission  or  computes  the  transmission  coefficient  for  obstacle 
DAM,  based  on  Goda  (1967)  [from  Seelig  (1979)].  If  reflections  are  turned  on,  the  source 
term  in  subroutine  REFLECT  is  calculated. 


Calling  Sequence:  swtrcf  (obsta,  cross,  wlev2,  chs,  link,  obredf,  ac2,  imatra,  kgrpnt, 
xcgrid,  ycgrid,  cax,  cay,  rdx,  rdy,  anybin) 


Data  Declaration:  Integer 
Real 

Logical 


cross,  obsta,  kgrpnt,  link 

chs,  obredf,  wlev2,  ac2,  xcgrid,  ycgrid,  cax,  cay, 

imatra,  rdx,  rdy 

anybin 


Arguments: 


obsta  Array  containing  obstacle  data. 

cross  Array  that  contains  0's  if  there  is  no  obstacle 

crossing.  If  an  obstacle  is  crossing  between  the 
central  point  and  its  neighbor;  cross  is  equal  to  the 
number  of  the  obstacle. 
wlev2  Water  level  in  grid  points, 

chs  Hs  in  all  computational  grid  points, 

link  Indicates  whether  link  in  stencil  crosses  an  obstacle, 

obredf  Array  of  action  density  reduction  coefficients 

(reduction  at  the  obstacle). 
ac2  Action  density  array. 

imatra  Coefficients  of  right-hand  side  of  matrix  equation, 

kgrpnt  Array  of  indirect  addressing, 

xcgrid  X-coordinate  of  computational  grid  in  x-direction. 

ycgrid  Y-coordinate  of  computational  grid  in  y-direction. 

cax,  cay  Propagation  velocities. 

rdx,  rdy  Array  containing  spatial  derivative  coefficients, 

anybin  Set  a  particular  bin  True  or  False  depending  on 

sector. 


5.3.18.34  Logical  Function  TCROSS 

Function  TCROSS  finds  out  if  there  is  an  obstacle  crossing  the  stencil  being  used. 
Calling  Sequence:  tcross  (x  1 ,  x2,  x3,  x4,  yl ,  y2,  y3,  y4) 

Data  Declaration:  Real  xl ,  x2,  x3,  x4,  yl ,  y2,  y3,  y4 
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Arguments:  xl,  yl  User  coordinates  of  one  end  of  grid  link. 

x2,  y2  User  coordinates  of  the  other  end  of  grid  link. 

x3,  y3  User  coordinates  of  one  end  of  the  obstacle  side. 

x4,  y4  User  coordinates  of  the  other  end  of  the  obstacle 

side. 

5.3.18.35  Logical  Function  TCROSS2 

Function  TCROSS2  finds  out  if  there  is  an  obstacle  crossing  the  stencil  being  used. 

Calling  Sequence:  tcross2  (xl,  x2,  x3,  x4,  yl,  y2,  y3,  y4,  xlonobst) 

Data  Declaration:  Real  xl ,  x2,  x3,  x4,  yl ,  y2,  y3,  y4 

Logical  xlonobst 

Arguments:  xl ,  yl  User  coordinates  of  one  end  of  the  grid  link. 

x2,  y2  User  coordinates  of  the  other  end  of  the  grid  link. 

x3,  y3  User  coordinates  of  one  end  of  the  obstacle  side. 

x4,  y4  User  coordinates  of  the  other  end  of  the  obstacle 

side. 

xlonobst  Boolean  which  tells  whether  (xl,  yl)  is  on 

obstacle. 

5.3.18.36  Subroutine  WRSPEC 

Subroutine  WRSPEC  writes  the  action  density  spectrum  in  SWAN  standard  format. 

Calling  Sequence:  wrspec  (nref,  acloc) 

Data  Declaration:  Real  acloc 

Integer  nref 

Arguments:  nref  Unit  reference  number  or  output  file. 

acloc  2-D  spectrum  or  source  term  at  one  output  location. 


5.3.19  Module  Containing  Global  Variables  (swmodl  FOR  File) 

This  file  is  used  to  create  global  variables  used  in  whitecapping  and  integral  parameter 
subroutines.  It  contains  no  subroutines. 
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7.0  NOTES 

7.1  Acronyms  and  Other  Abbreviations 


ASCE 

ASCII 

BI-CGSTAB 

BLAS 

BSBT 

CFL  criterion 

DIA 

DTA 

DUT  frame 

EOF 

GSE 

HISWA 

ID 

IUTAM 

JONSWAP 

LTA 

Mb 

OPPL 

QB 

S&L 

SIAM 

SORDUP 

SWAN 

WAM 

WAMDI 


American  Society  of  Civil  Engineering 
American  Standard  Code  for  Information  Interchange 
Method  to  solve  an  asymmetric  system  of  linear  equations 
Basic  Linear  Algebra  Subprograms 
Backward  Space,  Backward  Time 

Courant-Friedrich-Levy  condition  for  computational  stability 

Discrete  Interaction  Approximation 

Discrete  Triad  Approximation 

Delft  University  of  Technology 

End  of  File 

Garden-Sprinkler  Effect 

HIndcast  Shallow  Water  wave  model 

Identification 

International  Union  of  Theoretical  and  Applied  Mechanics 
JOint  North  Sea  WAve  Project 
Lumped  Triad  Approximation 
Megabytes 

Ocean  Pack  PLot  code 
Fraction  of  breaking  waves 

Stelling  and  Leendertse’s  second  order  with  third-order 
diffusion  scheme 

Society  for  Industrial  and  Applied  Mathematics 
Second  ORDer  Upwind  scheme 
Simulating  WAves  Nearshore 
WAve  Model 

WAM  Development  and  Implementation  group 
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TABLE  OF  COMMON  BLOCKS 

8.0  Appendix  I . . 

8.1  (ocpids  FOR  File) .  ]gg 

8.1.1  COMMON /  F1LENM . .  ZZZZZZZ . 188 

8.1.2  COMMON/ XASL . . . ]88 

8.1.3  COMMON. /  YASL . I88 

8.1.4  COMMON/  SYMSIZ .  188 

8.1.5  COMMON/ XPLO .  . j88 

8.1.6  COMMON/ XPH1 . . . I88 

8.1.7  COMMON/  YPLO .  j88 

8.1.8  COMMON/  YPH1 .  }88 

8.1.9  COMMON/  SUBLNS .  j88 

8.1.10  COMMON/XPSUB . ""!!!!! . 188 

8.1.11  COMMON/  YPSUB .  . ]88 

8.1.12  COMMON/ PLPARM(3) . "  . j88 

8. 1. 13  COMMON/  PLPARM(4) .  . I88 

8.1.14  COMMON/  PLPARM(5) . ""!!! I89 

8.1.15  COMMON/ PLPARM(6) . ZZZ!!!!!!!!!!  189 

8.2  (ocplot  FOR  File) .  jg9 

8.2.1  COMMON/ PMR . ZZZZZZZZ!!!! . 189 

8.2.2  COMMON/ MXQ . ZZ” . 189 

8.2.3  COMMON/ MYQ . ZZZ . 189 

8.2.4  COMMON/  DXQ . ]89 

8.2.5  COMMON/ DYQ . ZZZZZZZZ!!!!  189 

8.3  (ocpmix  FOR  Foe) .  jg9 

8.3.1  COMMON/  REFDAY . ZZZZZZZZZZZZZZ  189 

8.4  (swanmain  FOR  File) .  189 

8.4.1  COMMON/ NAMES . ZZZZZZZZ!! . 189 

8.4.2  COMMON/  TESTDA . ZZ . 190 

8.4.3  COMMON/  OUTPDA . ZZ!! . I90 

8.4.4  COMMON/ REFNRS . ZZ . 19} 

8.4.5  COMMON/  LEESDA . Z . 192 

8.4.6  COMMON/  LEESDN. . ZZ 192 

8.4.7  COMMON/  SWNAME . ZZZZZZZ . 193 

8.4.8  COMMON/  SWGRID . ZZZZZZ . 193 

8.4.9  COMMON/ SWCOMG . ZZZZZZZ! . 195 

8.4.10  COMMON/ SWNUMS . ZZZ!™" . 196 

8.4.11  COMMON/ SWTEST . ZZZZZZZ . 200 

8.4.12  COMMON/  SWUITV . ZZZ . 20 1 

8.4.13  COMMON/  SWFYSP . ZZZZZ!!! . 202 

8.4.14  COMMON/  COMPDA . ZZZZZZZZ!  202 

8.5  (swanout3  FOR  File) . ZZZ  205 

8. 5. 1  COMMON/  CPLT 1( Not  used ) .  205 

8.6  (swanpre  1  FOR  File) .  205 

8.6.1  COMMON/  TIMFlUNot  used) . ZZZZZZZZ. . 205 

8.6.2  COMMON/ CBOUPfNot  used) . 206 

8.6.3  COMMON/ SWANWL . 206 

8.6.4  COMMON/  T1MCOM . 206 

8.6.5  COMMON/  TIMRED. . ZZZZZZZZ!  206 

8.7  (swanser  FOR  File) .  207 

8.7.1  common/  pshape. . !!!!!!!!!!!!!!!!!!!!!!!!! . 207 

8.7.2  COMMON/ SPPARM . ! . 207 
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8.8  (ocpcomm  1  INC  File) . 207 

8.8.1  COMMON/  REFTIM . 207 

8.9  (ocpcomm3  INC  File) . 207 

8.9. 1  COMMON/  PLDATA . 207 

8.9.2  COMMON/  BINARY. . 208 

8.10  (poolcomm  INC  File) . 208 

8.10.1  COMMON/ SWPOOL. . 208 

8. 1 1  (swcomm2  INC  File) . 208 

8.11.1  COMMON/  INPGRS(Not  used) . 208 

8.12  (swcomm4  INC  File) . 209 

8.12.1  COMMON/  SWROP . 209 
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8.0  APPENDIX  I. 

8.1  (ocpids  FOR  File) 

8.1.1  COMMON/  FILENM 
Filename  of  plot  file. 

8.1.2  COMMON/  XASL 

Size  on  paper  of  geographic  area  in  x-direction. 

8.1.3  COMMON /  YASL 

Size  on  paper  of  geographic  area  in  y-direction. 

8.1.4  COMMON/  SYMSIZ 
Size  of  symbols  on  plot. 

8.1.5  COMMON/ XPLO 
Lowest  x  on  paper  of  geographic  area. 

8.1.6  COMMON/  XPHI 
Highest  x  on  paper  of  geographic  area. 

8.1.7  COMMON/  YPLO 
Lowest  y  on  paper  of  geographic  area. 

8.1.8  COMMON/  YPHI 
Highest  y  on  paper  of  geographic  area. 

8. 1.9  COMMON/  SUBLNS 
Number  of  lines  in  caption  for  scales  etc. 

8.1.10  COMMON/ XPSUB 
Position  of  one  line  of  caption. 

8.1.11  COMMON/  YPSUB 
Y  position  of  one  line  of  caption. 

8.1.12  COMMON/  PLPARM(3) 
Conversion  factor;  default  402. 

8.1.13  COMMON/  PLPARM(4) 
Plotting  margin  horizontal. 
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8.1.14  COMMON/ PLPARM(5) 
Plotting  margin  vertical. 

8.1.15  COMMON/  PLPARM(6) 
Rotation. 


8.2  (ocplot  FOR  File) 

8.2.1  COMMON/ PMR 
Plot  margin. 

8.2.2  COMMON/ MXQ 
Number  of  grid  points  in  x-direction. 

8.2.3  COMMON/  MYQ 
Number  of  grid  points  in  y-direction. 

8.2.4  COMMON/ DXQ 
Mesh  size  in  x-direction. 

8.2.5  COMMON/ DYQ 
Mesh  size  in  y-direction. 

8.3  (ocpmix  FOR  File) 

8.3.1  COMMON/ REFDAY 

Day  number  of  the  reference  day;  the  reference  time  is  0:00  of  the  reference  day;  the  first 
day  entered  is  used  as  reference  day. 


8.4  (swanmain  FOR  File) 
8.4.1  COMMON/NAMES 


Names  and  other  character  strin 

gs- 

Variable 

Type 

Description 

INST 

Character 

Name  of  the  institute.  It  can  be  changed  in  the  file 
SWANINIT. 

PROJID 

Character 

Acronym  of  the  project  for  which  the  computation  is 
taking  place. 

PROJNR 

Character 

=  BLANK;  run  number  for  the  computation; 

=  NR;  set  by  command  PROJ  ...  NR  ... 
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PROJT1 

Character 

=  BLANK;  first  line  of  the  project  title; 

=  titlel ;  set  by  command  PROJ  ...  titlel . 

PR0JT2 

Character 

=  BLANK;  second  line  of  the  project  title; 

=  title2;  set  by  command  PROJ  ...  title2. 

PROJT3 

Character 

=  BLANK;  third  line  of  the  project  title; 

=  title3;  set  by  command  PROJ  ...  title3. 

PTITLE 

Character 

Not  used. 

FTLENM 

Character 

Filename  of  the  file  currently  used  for  I/O. 

FILEA 

Character 

Not  used. 

HLEB 

Character 

Not  used. 

DIRCH1 

Character 

DIRCH2 

Character 

Directory  separation  character  replacing  DIRCH1. 

VERTXT 

Character 

Program  version,  character  representation. 

C4(LNAMS) 

Character 

Contains  all  the  items  in  /NAMES/.  C4  is  used  in  a  .for 
file;  each  item  is  listed  individually  in  a  .inc  file. 

8.4.2  COMMON/ TESTDA 

Test  parameter. _ 


Variable 

Type 

Description 

ITEST 

IMgSH 

Indicates  the  amount  of  test  output  requested. 

ITRACE 

Message  is  printed  up  to  ITRACE  times. 

LTRACE 

Indicates  whether  to  call  STRACE. 

LEVERR 

mwm 

Severity  of  the  errors  encountered. 

MAXERR 

Integer 

Maximum  severity  of  errors  allowed,  if  larger  no 
computation: 

=  1  Warnings; 

=  2  Errors; 

=  3  Severe  errors; 

=  4  Terminating  errors; 

=  MAXERR  Set  by  command  SET  ...  [MAXERRL 

OTSTD(NTSTD) 

Real 

(Not  used);  Contains  all  of  the  items  in  /TESTDA/. 
OTSTD  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.4.3  COMMON/ OUTPDA 

Data  for  output,  mainly  plotting. 


Variable 

3m _ 

Description 

LEFT 

Logical 

The  coordinate  system  is  left/right-oriented  i.e. 
counterclockwise  from  X  to  Y/clockwise  from  Y  to  X. 

PFROPT 

Integer 

Frame  option  in  plot,  read  from  SWANINIT. 

VERNUM 

Real 

Version  number  of  SWAN. 
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XASM 

Real 

Maximum  size  of  area  available  for  plotting  isolines  and 
vector  fields  in  x-direction. 

YASM 

Real 

Maximum  size  of  area  available  for  plotting  isolines  and 
vector  fields  in  y-direction. 

MXQ 

Integer 

Number  of  grid  points  of  the  output  frame  in  X- 
direction. 

MYQ 

Integer 

Number  of  grid  points  of  the  output  frame  in  Y- 
direction. 

DXQ 

Real 

Mesh  size  of  the  output  frame  in  X-direction. 

DYQ 

Real 

Mesh  size  of  the  output  frame  in  Y-direction. 

XASL 

Real 

Size  on  paper  of  geographic  area  in  x-direction. 

YASL 

Real 

Size  on  paper  of  geographic  area  in  y-direction. 

SYMSIZ 

Real 

Size  of  the  symbols  in  the  plot. 

LSC 

Real 

Not  used. 

vsc 

Real 

Not  used. 

PENUP 

Not  used. 

XPLO 

Real 

Lowest  x  on  paper  of  geographic  area. 

XPHI 

Real 

Highest  x  on  paper  of  geographic  area. 

YPLO 

Real 

Lowest  y  on  paper  of  geographic  area. 

YPHI 

Real 

Highest  y  on  paper  of  geographic  area. 

HORSC 

Horizontal  scale. 

VRTSC 

m 

Vertical  scale. 

XFLO 

Real 

Lower  limit  of  X  in  the  physical  plane. 

XFHI 

Real 

Upper  limit  of  X  in  the  physical  plane. 

YFLO 

Real 

Lower  limit  of  Y  in  the  physical  plane. 

YFHI 

Real 

Upper  limit  of  Y  in  the  physical  plane. 

SUBLNS 

Integer 

Number  of  lines  available  in  the  plot  legend 
=  3  If  FROPT  =  1 
=  4  If  FROPT  =  2 

XPSUB 

Real 

Place  (X-coordinate)  of  the  legends  in  the  frame. 

YPSUB 

Real 

Place  (Y-coordinate)  of  the  legends  in  the  frame. 

ODA(MCODA) 

Real 

(Not  used);  Contains  all  the  items  in  /OUTPDA/.  ODA 
is  used  in  a  .for  file;  each  item  is  listed  individually  in  a 
.inc  file. 

8.4.4  COMMON/  REFNRS 

File  unit  reference  numbers. 


Variable 

E 

Description 

PRINTF 

IKH 

Unit  number  for  the  file  with  standard  output  (PRINT). 

INPUTF 

Unit  number  for  the  file  with  command  input  (INPUT). 

IUNMIN 

Minimum  unit  number. 

IUNMAX 

Maximum  unit  number. 

FUNLO 

Integer 

Lowest  free  unit  number. 
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FUNHI 

■m 

Highest  free  unit  number. 

SCREEN 

Unit  number  for  the  screen. 

PRTEST 

Unit  number  for  the  print  file  containing  test  output. 

IMPORT 

Not  used. 

EXPORT 

Not  used. 

HIOPEN 

Highest  unit  number  of  an  open  file. 

ITMOPT 

EH91 

Time  coding  option. 

IRFNS(NRFNS) 

Integer 

(Not  used);  Contains  all  of  the  items  in  /REFNRS/. 

IRFNS  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.4.5  COMMON/ LEESDA 

Character  data  used  by  the  command  reading  system. 


Variable 

Type 

j— - V'  ✓  . 

Description 

ELTYPE 

Character 

Type  of  the  element  last  read  by  reading  system. 

ELTEXT 

Character 

Contents  of  the  last  string  read  by  reading  system. 

KAART 

Character 

Contents  of  the  input  line  last  read  by  the  reading 
system. 

KAR 

Character 

Character  last  read  by  the  reading  system. 

KEYWRD 

Character 

Contents  of  the  last  keyword  read  by  reading  system. 

BLANK 

Character 

Blank  string. 

TABC 

Character 

Tabular  character. 

COMID 

Character 

Character  that  distinguishes  comments  in  the  command 
input. 

LSDA(NLSDA) 

Character 

Contains  all  of  the  items  in  /LEESDA/.  LSDA  is  used  in 
a  .for  file;  each  item  is  listed  individually  in  a  .inc  file. 

8.4.6  COMMON/ LEESDN 

Number  data  used  by  the  command  reading  system. 


Variable 

Type 

Description 

ELREAL 

Double 

Precision 

Last  element  read  from  user  command,  when  real  or 
double. 

ELLINT 

■sm 

Last  element  read  from  user  command,  when  integer. 

KARNR 

Integer 

Position  on  the  input  line  of  character  last  processed  by 
the  reading  system: 

=  0  No  characters  read  yet; 

=  81  Next  input  line  has  to  be  read  to  the  common 
KAART  first. 

CHGVAL 

Logical 

Whether  or  not  the  last  read  value  is  different  from  a 
given  value  for  subroutines  INREAL,  ININTG,  INCSTR 
and  INCTIM. 

LENCST 

Integer 

Length  of  the  string  stored  in  ELTEXT. 

192 


PSI  Technical  Report  SSC-002-02 


SWAN  SDD 


ELSDN(NLSDN)  Integer 


(Not  used);  Contains  all  of  the  items  in  /LEESDN/. 
ILSDN  is  used  in  a  .for  fde;  each  item  is  listed 
individually  in  a  .inc  file. _ 


8.4.7  COMMON/  SWNAME 

Names  and  other  character  data. 


Variable 

mam 

Description 

FNEST 

SNAME 

Character 

Character 

Name  of  nest  file. 

Name  of  output  point  set. 

OVKEYW 

Character 

Keyword  identifying  output  quantity  in  a  SWAN 
command. 

OVSNAM 

Character 

Short  name  of  output  quantity. 

OVLNAM 

Character 

Long  name  of  output  quantity. 

OVUNIT 

Character 

Unit  of  output  quantity. 

UH 

Character 

Unit  of  vertical  length  (m). 

UV 

Character 

Unit  of  velocity  (m/s). 

UT 

Character 

Unit  of  time  (sec). 

UL 

Character 

Unit  of  horizontal  length  (m). 

UET 

Character 

Unit  of  energy  transport,  and  wave  force  (m  /s). 

UDI 

Character 

Unit  of  direction  (degrees). 

UST 

Character 

Not  used. 

UF 

Character 

Unit  of  pressure  or  shear  stress  (force  per  area)  (N/m2). 

UP 

Character 

Unit  of  energy  flux  density  (W/m). 

UAP 

Character 

Unit  of  dissipation  (W/m2). 

UDL 

Character 

Unit  of  dissipation  (m2/s). 

UD 

Character 

Not  used. 

FBCL 

Character 

Not  used. 

FBCR 

Character 

Not  used. 

CHTIME 

Character 

Character  string  representation  of  date-time  of 
computation. 

TIT(LHNAMS) 

Character 

Contains  all  of  the  items  in  /SWNAME/.  TIT  is  used  in 
a  .for  file;  each  item  is  listed  individually  in  a  .inc  file. 

8.4.8  COMMON/  SWGRID 


Location  and  dimensions  of  input  grids. 


Variable 

Type _ 

Description 

XPG 

ESSflH 

X  of  origin. 

YPG 

HHI 

Y  of  origin. 

ALPG 

Real 

Direction  of  the  x-axis  with  respect  to  the  user 
coordinates. 

COSPG 

Real 

Cosine  of  ALPG. 
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SINPG 


DXG 


DYG 


MXG 


MYG 


LEDS 


IGTYPE 


VARFR 


VARWI 

COSVC 


SINVC 


coswc 


S1NWC 


XOFFS 


YOFFS 


LXOFFS 


VARWLV 


DYNDEP 


NESRUN 


NWAMN 


OPTG 


STAGX 


STAGY 


CVLEFT 


RDTIM 


Integer 


Integer 


EXCFLD 


Sine  of  ALPG. 


Mesh  size  of  input  grid  in  x-direction. 


Mesh  size  of  input  grid  in  v-direction. 


Number  of  meshes  in  x-direction. 


Number  of  meshes  in  y-direction. 


=  0  When  values  have  not  been  read; 
=  1  If  values  were  read. 


=  0  When  grid  has  constant  values; 

=  1  When  grid  is  regular; 

=  2  When  grid  is  curvilinear. _ 

Friction  coefficient  is  or  is  not  variable  over  space. 


Wind  velocity  is  or  is  not  variable  over  space. _ 

Cosine  of  the  angle  of  current  input  grid  with  respect  to 
the  computational  grid. 


Sine  of  the  angle  of  current  input  grid  with  respect  to  the 
computational  grid. _ 


Cosine  of  the  angle  of  wind  input  grid  with  respect  to 
the  computational  grid. _ 


Sine  of  the  angle  of  wind  input  grid  with  respect  to  the 

computational  grid. _ 

Offset  value  in  x. 


Offset  value  in  y. 


Offset  values  were  or  were  not  initialized  already. 


Water  level  is  or  is  not  variable  over  space. 


True  if  depth  varies  with  time. 


Indicator  for  a  nested  run. 


Indicator  for  a  WAM-nested  run. 


Type  of  the  computational  grid: 

=  1  When  regular; 

=  2  When  irregular,  but  rectangular  (not  used); 
=  3  When  curvilinear. 


Staggering  of  the  curvilinear  input  grid  with  respect  to 
the  computational  grid  in  X. 


Staggering  of  the  curvilinear  input  grid  with  respect  to 
the  computational  grid  in  Y. 


The  curvilinear  computational  grid  is  left/right-oriented. 


=  0  When  in  stationary  mode; 

=  1/DT  When  in  non-stationary  mode. 


Initial  conditions: 

=  0  When  mode  stationary,  or  no  initial  conditions 
needed; 

=  1  When  mode  non-stationary  and  initial  conditions 
should  be  calculated. 


Exception  values  for  input  grids. 
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NBFILS 

mai 

Number  of  boundary  condition  files. 

NBSPEC 

Number  of  boundary  spectra. 

NBGRPT 

im 

Number  of  computational  grid  points  for  which 
boundary. 

VARAST 

Logical 

Air-sea  temperature  difference  is  or  is  not  variable  over 
space. 

BOTG(MCINGR) 

Real 

(Not  used);  Contains  all  of  the  items  in  /SWGRID/. 

BOTG  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

Location  and 


Variable 


ICOMP 


XPC 


YPC 


ALPC 


COSPC 


SINPC 


XCLEN 


YCLEN 


MTC 


MXC 


MYC 


MDC 


MSC 


SLOW 


SHIG 


COMMON/  SWCOMG 
dimensions  of  computational  grid. 


Description 


DDIR 

NX 


NY 


XCP 


ALCP 


DXRP 


Integer 


Real 


Real 


Real 


Integer 


Unused. 


X  coordinate  of  the  origin  of  the  computational  grid. 


Y  coordinate  of  the  origin  of  the  computational  grid. 


Direction  of  x-axis  of  computational  grid  with  respect  to 
the  user  coordinates.  _ 


Cosine  of  ALPC.  _ 


Sine  of  ALPC. 


Length  of  computational  grid  in  x-direction. 


Length  of  computational  grid  in  y-direction. 


Computational  timesteps. 


Grid  points  in  x-direction  of  computational  grid. 


Grid  points  in  y-direction  of  computational  grid. 


Grid  points  in  the  theta-direction  of  the  computational 
grid. _ 


Points  in  the  sigma-direction  of  the  computational  grid. 


Lowest  spectral  value  of  sigma. 


Highest  spectral  value  of  sigma. 


Mesh  size  in  x-direction  of  computational  grid. _ 

Mesh  size  in  y-direction  of  computational  grid. 


Mesh  size  in  theta-direction  of  computational  grid. _ 

Only  used  locally.  Equal  to  MXS. 


Only  used  locally.  Equal  to  MYS. 


Origin  of  the  user  coordinates  with  respect  to  the 
computational  coordinates. 


Origin  of  user  coordinates  with  respect  to  the 
computational  coordinates.  _ 


Direction  of  user  coordinates  with  respect  to  the 

computational  coordinates. _ 

Not  used. 
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DYRP 

Real 

Not  used. 

MSC4MI 

Integer 

Some  counter  for  quadruplet  interactions.  Stored  in 
WWINT(15). 

MSC4MA 

Integer 

Some  counter  for  quadruplet  interactions.  Stored  in 
WWINT(16). 

MDC4MI 

Integer 

Some  counter  for  quadruplet  interactions.  Stored  in 
WWINT(17). 

MDC4MA 

Integer 

Some  counter  for  quadruplet  interactions.  Stored  in 
WWINT(18). 

FRINTF 

Real 

Frequency  integration  factor  (df/f). 

FRINTH 

Real 

Frequency  mesh  boundary  factor. 

MMCGR 

Grid  points  in  computational  grid. 

FULCIR 

Spectral  directions  cover  full  or  part  of  circle. 

SPDIR1 

Real 

Represents  the  First  spectral  direction. 

JSPDER 

m 

Array  spcdir  within  pool  array. 

J  SIGMA 

Array  spcsig  within  pool  array. 

MCGRD 

EBB 

Number  of  wet  grid  points  of  the  computational  grid. 

SPDIR2 

Real 

Represents  the  second  spectral  direction. 

IXCGRD 

IX  of  the  points  of  the  computational  stencil. 

IYCGRD 

mm 

IY  of  the  points  of  the  computational  stencil. 

KCGRD 

Grid  address  of  the  points  of  the  computational  stencil. 

XCGMIN 

Real 

Minimum  x-coordinate  of  computational  grid  points. 

XCGMAX 

Real 

Maximum  x-coordinate  of  computational  grid  points. 

YCGMIN 

Real 

Minimum  y-coordinate  of  the  computational  grid  points. 

YCGMAX 

Real 

Maximum  y-coordinate  of  the  computational  grid  points. 

NGRBND 

Integer 

Number  of  grid  points  on  the  computational  grid 
boundary. 

COMG 

(MCCOM) 

Real 

(Not  used);  Contains  all  of  the  items  in  /SWCOMG/. 

COM  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.4.10  COMMON/  SWNUMS 

Information  related  to  the  numerical  scheme. 


Variable 

TyPe _ 

Description 

NCOR 

ebb 

Not  used. 

IWCAP 

Integer 

Indicates  whitecapping: 

=  0  For  command  GEN  1...; 

=  0  For  command  GEN2...; 

=  0  For  command  OFF  WCAP...,  no  whitecapping; 

=  1  For  command  GEN3  KOM...; 

=  1  For  command  WCAP  KOM  ...,  not  documented  in 
manual,  standard  WAM  formulation  (Komen  et  al., 
1984); 
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=  2  For  command  GEN3  JANS...; 

=  2  For  command  WCAP  JANS  ...,  not  documented  in 
manual,  according  to  Janssen  (1989,  1991); 

=  3  For  command  WCAP  LHIG ...,  not  documented  in 
manual,  according  to  Longuet-Higgins  (1969),  Yuan 
et  al.  (1986); 

=  4  For  command  WCAP  BJ  ...,  not  documented  in 
manual,  according  to  Battjes  and  Janssen  (1978); 

=  5  For  command  WCAP  KBJ  ...,  not  documented  in 
manual,  combined  formulation  of  Komen  et  al. 

(1984)  and  Battjes  and  Janssen  (1978). 

IPRE 

ESSSISH 

Not  used. 

ICOR 

Not  used. 

IBOT 

Integer 

Indicator  bottom  friction: 

=  0  No  bottom  friction  dissipation; 

=  1  Set  by  command  FRIC  JON  ...,  JONSWAP  bottom 
friction  model; 

=  2  For  command  FRIC  COLL  ...,  Collins  bottom 
friction  model; 

=  3  For  command  FRIC  MAD  ...,  Madsen  bottom 
friction  model. 

ICUR 

Integer 

Indicates  presence  of  currents: 

=  0  No  currents; 

=  1  For  command  READ  CUR  ...,  currents  are  present. 

IDBR 

EBgSj 

Not  used. 

IDIF 

JE9| 

Not  used. 

UNC 

Not  used. 

1TR1AD 

Integer 

Indicates  triad  interaction  term: 

=  0  Triads  are  inactive; 

=  1  For  command  TRI DTA  IMP ...,  not  documented  in 
manual; 

=  2  For  command  TRI  DTA  EXP  ...,  not  documented  in 
manual; 

=  3  For  command  TRI  [trfac]  [cutfr],  as  in  manual; 

=  3  For  command  TRI  LTA  IMP  ...,  not  documented  in 
manual; 

=  4  For  command  TRI  LTA  EXP ...,  not  documented  in 
manual. 

IREFR 

Integer 

Indicates  refraction  effect: 

=  0  For  command  OFF  REF,  refraction  is  inactive; 

=  1  Refraction  is  active. 

ISURF 

Integer 

Indicates  surf  breaking  (shallow  water)  term: 

=  0  For  command  OFF  BRE,  surf  breaking  is  inactive; 

=  1  For  command  BRE  CON  ...,  surf  breaking  with 
constant  parameter; 
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!■■■ 

=  2  For  command  BRE  VAR  surf  breaking. 

rrasY 

Not  used. 

IWIND 

Integer 

Indicates  presence  of  wind  and  type  of  source  term  used: 

=  0  No  wind; 

=  1  For  command  GEN1  ...,  if  wind  is  made  active; 

=  1  For  command  GROWTH  G1  ...,  not  documented  in 
manual,  first  generation  source  term; 

=  2  For  command  GEN2  ...,  if  wind  is  made  active; 

=  2  For  command  GROWTH  G2  ....  not  documented  in 
manual,  second  generation  source  term  (as  in 
Dolphin); 

=  3  For  command  WIND  ...,  if  IWIND  still  was  0,  else 
unchanged; 

=  3  For  command  GEN3  KOM  ...,  if  wind  is  made 
active; 

=  3  For  command  GROWTH  G3  KOM  ...,  not 

documented  in  manual,  third  generation  source  term 
(Snyder); 

=  4  For  command  GEN3  JANS  ...,  if  wind  is  made 
active; 

=  4  For  command  GROWTH  G3  JANS  ...,  not 

documented  in  manual,  source  term  by  P.  Janssen 
(1989,  1991); 

=  5  For  command  GEN3  YAN  ...,  if  wind  is  made 
active; 

=  5  For  command  GROWTH  G3  YAN. 

IQUAD 

Integer 

Indicates  the  quadruplet  interaction  term: 

=  0  For  command  OFF  QUAD; 

-  0  For  command  GEN  1 ; 

=  0  For  command  GEN2; 

=  0  For  command  GROWTH  Gl; 

=  0  For  command  GROWTH  G2,  quadruplets  are 
inactive; 

=  1  Quadruplets  are  calculated  semi-implicit  per  sweep 
direction; 

=  2  For  command  GEN3; 

=  2  For  command  QUAD; 

—  2  Set  when  iwind  =  3  or  4  and  icur  =  0  in  subroutine 

ERRCHK,  quadruplets  are  calculated  fully  explicit 
per  sweep  direction; 

=  3  Set  when  iwind  =  3  or  4  and  icur  =  1  in  subroutine 
ERRCHK,  quadruplets  are  calculated  fully  explicit 
per  iteration; 

=  iquad  Set  by  command  GEN3  ...  QUAD  fiquadl. 

ICMAX 

Integer 

Number  of  points  in  computational  stencil. 
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ITERMX 

Integer 

Maximum  number  of  iterations: 

Set  equal  to  MXITST  for  stationary  computations. 

Set  equal  to  MXITNS  for  non-stationary  computations. 

NSTATC 

Integer 

Indicates  stationary  of  computation: 

=  0  Stationary  computation; 

=  1  Non-stationary  computation. 

NSTATM 

Integer 

=  0  Stationary  mode; 

=  1  Non-stationary  mode; 

=  -l  Unknown. 

U10 

Real 

Wind  velocity. 

WDIP 

Real 

Wind  direction  with  respect  to  problem  coordinates. 

WDIC 

Real 

PI2*((WDIP/PI2-NINT(WDIP/PI2)) 

DEPMIN 

Real 

Threshold  depth  (to  prevent  zero  divisions). 

PWCAP 

EH 

Whitecapping  coefficients. 

PBOT 

IH 

Coefficients  for  the  bottom  friction  models. 

PTRIAD 

Real 

Controls  the  proportionality  coefficient. 

PNUMS 

Real 

Numerical  coefficients. 

PSURF 

Real 

Surf  breaking  coefficients. 

PWIND 

Wind  growth  term  coefficients. 

SYO 

Peak  enhancement  parameter  of  the  JONSWAP 
spectrum. 

SIGMAG 

Real 

Width  of  the  Gaussian  frequency  spectrum  in  Hz. 

ITFRE 

Integer 

Indicator  for  transport  of  action  in  frequency  space: 

=  0  For  command  OFF  FSH,  frequency  shifting 
inactive; 

=  1  Frequency  shifting  active. 

NUMOBS 

mm 

Number  of  obstacles. 

LSETUP 

=  0  Setup  is  not  calculated; 

=  1  Setup  is  calculated; 

=  2  Setup  is  calculated  with  the  boundary  conditions 
from  a  nest  file. 

BNDCHK 

Logical 

Indicates  whether  computed  Hs  on  boundary  must  be 
compared  with  the  value  entered  as  boundary  condition. 

HSRERR 

Real 

The  error  margin  allowed  between  pre-scribed  and 
calculated  Hs  at  the  upwave  boundary.  If  exceeded,  then 
a  warning  is  produced. 

FSHAPE 

Integer 

Indicates  option  for  computation  of  frequency 
distribution  in  the  spectrum  (boundary  spectra  etc.). 

DSHAPE  1 

Integer 

Indicates  option  for  computation  of  directional 
distribution  in  the  spectrum  (boundary  spectra  etc.). 

PSHAPE 

Real 

Coefficients  for  calculation  of  spectrum  from  integral 
parameters. 

SPPARM 

Real 

Integral  parameters  used  for  computation  of  incident 
spectrum. 
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BNAUT 

Logical 

Indicates  whether  Nautical  or  Cartesian  directions  are 
used. 

ONED 

Logical 

Indicates  whether  the  calculation  should  be  performed  in 
1-D  mode. 

PQUAD 

Real 

Coefficients  for  quadruplet  interaction. 

BRESCL 

Rescaling  on/off. 

IGEN 

Integer 

Indicates  the  generation  mode: 

=  1  For  command  GEN  1 ; 

=  2  For  command  GEN2; 

=  3  For  command  GEN3. 

PSETUP 

Real 

User  defined  level  for  correction  of  the  setup. 

CSETUP 

Logical 

Indicates  whether  or  not  the  solver  for  setup  has 
converged. 

ACUPDA 

Logical 

Indicates  whether  or  not  action  densities  are  to  be 
updated  during  computation. 

MXITST 

Integer 

Maximum  number  of  iterations  in  stationary 
computations. 

MXITNS 

Integer 

Maximum  number  of  iterations  in  non-stationary 
computations. 

NMS(MCNMS) 

Integer 

(Not  used);  Contains  all  of  the  items  in  /SWNUMS/. 

NMS  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.4.11  COMMON/ SWTEST 

Information  for  test  output. _ 


Variable 

umm 

Description 

LXDMP 

Grid  counter  for  a  test  point  in  the  x-direction. 

LYDMP 

E3H9I 

Grid  counter  for  a  test  point  in  the  y-direction. 

NEGMES 

BESS* 

Not  used. 

MAXMES 

ibssi 

Not  used. 

TESTFL 

Logical 

Test  output  must/must  not  be  made,  mainly  for  test 
points. 

NPTST 

Number  of  test  points;  set  by  command  TEST. 

IPTST 

Sequence  number  of  a  test  point. 

NPTSTA 

E05W 

Number  of  test  points,  equal  to  MAX(  1 ,  NPTST). 

INTES 

Integer 

Testing  parameter. 

ICOTES 

Integer 

Minimum  value  for  ITEST. 

IOUTES 

Integer 

Minimum  value  for  ITEST. 

UNDFLW  j 

Real 

Small  number  to  prevent  underflows. 

EFPAR 

Integer 

Unit  reference  number  for  output  of  parameters  in  test 
points. 

IFS1D 

Integer 

Unit  reference  number  for  output  of  1-D  spectra  of 
source  terms. 
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IFS2D 

Integer 

Unit  reference  number  for  output  of  2-D  spectra  of 
source  terms.  If  used,  the  value  is  made  non-zero  by 
subroutine  FOR. 

OUT(NKTST) 

Real 

(Not  used);  Contains  all  of  the  items  in  /SWTEST/. 

OUT  is  used  in  a  .for  file;  each  item  is  listed  individually 
in  a  .inc  file. 

8.4.12  COMMON/  SWUITV 

Information  for  output. 


Variable 

E35SH 

ALCQ 

Real 

COSCQ 

|§|H| 

SINCQ 

E 

IUBOTR 

INRHOG 

Integer 

ERRPTS 

Integer 

DXK,  DYK 

Real 

ALPQ 

Real 

COSPQ 

Real 

SINPQ 

Real 

XQP 

Real 

YQP 

XQLEN 

YQLEN 

Real 

OVSVTY 

Integer 

OVLLIM 

Real 

OVULIM 

Real 

OVLEXP 

OVHEXP 

E 

OVEXCV 


Description  _ _ 


Angle  between  x-axes  of  computational  grid  and  output 
frame.  _ _ 


Cosine  of  ALCQ.  _ 

Sine  of  ALCQ.  _ 


Set  to  one,  when  ivtype  =  6  or  18. _ 


Indicates  the  choice  for  output  based  on  "variance"  or 
"true  energy". 

=  0  Output  based  on  variance; 

=  1  Output  based  on  “true  ener 


Unit  reference  number  of  file  containing  coordinates  of 
"problem  points". _ 


Mesh  size  of  output  frame.  _ 


Angle  between  x-axes  of  user  coordinate  system  and 
output  frame.  _ 


Cosine  of  ALPQ.  _ 


Sine  of  ALPQ. _ 


X-coordinate  (user  coordinate)  of  origin  of  output  frame. 


Y-coordinate  (user  coordinate)  of  origin  of  output  frame. 


Length  of  x-side  of  output  frame. 


Length  of  y-side  of  output  frame.  _ 


Type  of  the  output  variable: 

=  1  Scalar; 

=  2  Angle; 

=  3  Vector; 

=  4  Tensor; 

=  5  Fully  spectral  quantity; 

=  6  Directional  spectral  quantity. 


Lower  limit  of  validity  of  output  quantity. 


Upper  limit  of  validity.  _  _ 


Lower  expected  limit  of  output  quantit; 
Upper  expected  limit  of  output  quantit 


Exception  value  for  output  quantity. 
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SPCPOW 

Integer 

Power  in  expression  for  computation  of  average 
frequency. 

AKPOWR 

Real 

Power  in  expression  for  computation  of  average  wave 
number. 

MXOUTAR 

Integer 

Calculates  maximum  memory  needed  for  the  output 
routines. 

XPQ 

Real 

X-origin  of  a  frame. 

YPQ 

Real 

Y-origin  of  a  frame. 

OUTPAR 

Real 

Array  containing  various  parameters  for  computation  of 
output  quantities. 

UDA(MCUDA) 

Real 

(Not  used);  Contains  all  of  the  items  in  /SWUITV/. 

UDA  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.4.13  COMMON/ SWFYSP 

Physical  parameters. _ 


Variable 

E33BH 

Description 

GRAV 

- — - - 

Real 

Acceleration  due  to  gravity. 

WLEV 

Real 

Water  level. 

PI 

Real 

Circular  constant. 

PI2 

Real 

2*PI 

RHO 

Real 

Density  of  the  water. 

DEGRAD 

Real 

Constant  to  transform  degrees  to  radians. 

DNORTH 

Real 

Direction  of  North  with  respect  to  the  x-axis  of  user 
coordinates. 

PWTAIL 

Real 

Coefficients  to  calculate  the  tail  of  the  spectrum. 

CASTD 

Real 

Air-sea  temperature  difference. 

FP(MCFP) 

Real 

(Not  used);  Contains  all  of  the  items  in  /SWFYSP/.  FP 
is  used  in  a  .for  file;  each  item  is  listed  individually  in  a 
.inc  file. 

8.4.14  COMMON/  COMPDA 


Pointers  for  data  arrays  on  computational  grid. 


Arguments 

K» 

- v: _ _ _ _ _ _ _ _ _ 

Description 

JCMPDA 

mmm 

Array  compda  within  pool  array. 

MCMVAR 

K2BSI 

Within  array  compda. 

JHS 

H&fl M 

Significant  wave  height  Hs  within  array  compda. 

JDISS 

ERH 

Dissipation  within  array  compda. 

JUBOT 

Bottom  orbital  velocity  within  array  compda. 

JQB 

BS3S9I 

Fraction  of  breaking  waves  within  array  compda. 

JSTP 

E ESS 

Steepness  within  array  compda. 

JDHS 

Integer 

Wave  height  correction  within  array  compda. 
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JDP1 


JVX1 


JVY1 


JDP2 


JVX2 


JVY2 


JFRC2 


JFRC3 


JWX2 


JWY2 


JBOT 


JWLV1 


JWLV2 


JWAREA 


JOUTD 


JXYTST 


JTSTDA 


MTSVAR 


JPWNDA 


JPWNDB 


JPWCAP 


JPBTFR 


JPWBRK 


JP4S 


JP4D 


JPTRI 


JAUX 


JDTM 


MSWMAT 


JMATD 


JMATR 

JMATL 


JMATU 


JMAT5 

JMAT6 


J  AB  IN 


JABLK 


Integer 


tege 


Integer 


Integer 


Integer 


Integer 


JLEK1 


JAOLD 


Old  depth  within  array  compda. _ _ 


X  of  old  current  velocity  within  array  compda. 


Y  of  old  current  velocity  within  array  compda. 


New  depth  within  array  compda. _ 


X  of  new  current  velocity  within  array  compda. 


Y  of  new  current  velocity  within  array  compda. 


Friction  coefficient  within  array  cornpda. _ 


Friction  coefficient  within  array  cprnpda. _ 


X  of  new  wind  velocity  within  array  compda. 


Y  of  new  wind  velocity  within  array  compda. 


Bottom  level  within  array  conipda,  not  used. 


Old  water  level  within  array  compda. _ 


New  water  level  within  array  compda. 


Work  area  within  pool  arra; 


Array  acl  within  pool  array.  _ 


Array  ac2  within  pool  array. _ 


Array  outda  within  pool  array. _ 


Test  points  within  pool  arra’ 


Array  testda  within  pool  array. _ 


Within  array  testda. 


Within  array  swtsda ,  wind  source  term  part  A. 


Within  array  swtsda ,  wind  source  term  part  B. 


Within  array  swtsda,  whitecappin 


Within  array  swtsda,  bottom  friction. 


Within  array  swtsda,  surf  breakin 


Within  array  swtsda,  quadruplet  interactions. 


Within  array  swtsda,  quadruplet  interactions. 


Within  array  swtsda,  triad  interactions. 


Auxiliary  array  within  pool  array. _ 


Wave  period  correction  within  array  compda. 


Within  array  swmatr. 


Within  array  swmatr. 


Within  array  swmatr.  _ 


Within  array  swmatr. 


Within  array  swmatr^ _ 

Within  array  swrnatr. _ 


Within  array  swmatr. 


Within  array  swmatr. 


Within  array  swmatr. 


Within  array  swmatr. 


Within  array  swmatr. _ 

Within  array  swmatr. 


Within  array  swmatr. 
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JLEAK 

E3E99HE 

JWLV3 

E3J3?§3Mi 

JVX3 

JVY3 

ism 

JWX3 

JWY3 

E3SS9H 

JDP3 

E3B15BB 

JFL1 

EHSI5SH 

JFL2 

JAUXW 

BH 

JAUXW2 

HONSHU 

JAUXW3 

ms 

JFRW 

ism 

JANGSW 

E3SH39I 

JCOOX 

ES55^9 

JCOOY 

E 3SSB 

JADDRS 

Integer 

JSETUP 

IgRH 

JDPSAV 

|]fj(3!§SEBI 

JWFRCX 

Integer 

JWFRCY 

Integer 

JUSTAR 

ESSSU 

JZEL 

EH3SMB 

JTAUW 

Msmm 

JCDRAG 

E3E35MB 

JBFILS 

ESSSH 

JBSPEC 

E30533BI 

JBGRID 

ess^sih 

JBSLOC 

IggSI 

JBSD1R 

JBSFRQ 

esisshi 

JBSAUX 

JHSIBC 

Integer 

JGRBND 

BES9EEI 

JURSEL 

JASTD1 

ES3S 

JASTD2 

E3S3H 

JBTIME 

E2 B911 

"Leak"  within  array  compda. 


Last  read  water  level  within  array  compda. 


X  of  last  read  current  velocity  within  array  compda. 


Y  of  last  read  current  velocity  within  array  compda. 


X  of  last  read  wind  velocity  within  array  compda . 


Y  of  last  read  wind  velocity  within  array  compda. 


Last  read  depth  within  array  compda. 


Bound 


Boundary  spectra  at  time  =  T  +  DT  within  pool  array. 
Auxiliary  array  within  pool  array.  Used  for  WAM. 


Auxiliary  array  within  pool  array.  Used  for  WAM. 


Auxiliary  array  within  pool  array.  Used  for  WAM. 


Computed  spectral  frequencies  WAM  within  pool  array. 


Computed  spectral  directions  WAM  within  pool  array. 


X  coordinates  computational  grid  within  array  compda. 


Y  coordinates  computational  grid  within  array  compda. 


Indirect  addresses  of  the  computational  grid  within  pool 
array. 


Setup  values  within  array  compda. 


Saved  depth  (for  setup)  within  array  compda. 


Within  array  compda :  x-computation  is  wave  induced 

force. _ 

Within  array  compda :  y-computation  is  wave  induced 
force. _ 


Friction  velocity  within  array  compda. 


Roughness  within  array  compda. 


TauW  within  array  compda. 


Drag  coefficient  within  array  compda. 


Sequence  number  for  pool  array  bfdes. 


Sequence  number  for  pool  array  bspecs. _ 

Sequence  number  for  pool  array  bgridp. 


Sequence  number  for  pool  array  bsploc. 


Sequence  number  for  pool  array  bspdir. 


Sequence  number  for  pool  array  bspfrq. 


Sequence  number  for  pool  array  bspaux. _ 

Significant  wave  height  from  boundary  condition  in 
array  compda. _ 


Pointer  to  pool  array  holding  boundary  grid. _ 

Ursell  number  as  used  in  Triad  computation. 


Old  air-sea  temperature  difference  within  array  compda. 
New  air-sea  temperature  difference  within  array  compda. 


Not  used. 
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JASTD3 

Integer 

Last  read  air-sea  temperature  difference  within  array 
compda. 

CDA(MCDA) 

Real 

(Not  used);  Contains  all  of  the  items  in  /COMPDA/. 

CDA  is  used  in  a  .for  file;  each  item  is  listed 
individually  in  a  .inc  file. 

8.5  (swanout3  FOR  File) 

8.5.1  COMMON/  CPLTl(Not  used) 

Variable 

wssmm 

Description 

IPLOT 

Integer 

Parameter  specifying  plot  option  IPLOT 
=  0  No  plotting  of  lines; 

=  1  Plotting  option  on. 

NN 

Integer 

Number  of  segments  in  which  a  basic  line  has  to  be 
divided. 

LTEST 

Integer 

Parameter  specifying  quantity  of  test  output  of 
intermediate  results. 

IC1 

Integer 

Number  of  steps  after  which  the  first  number  is  plotted 
on  a  contour  line. 

IC2 

Integer 

Number  of  steps  between  succeeding  plot  actions  of  a 
number  on  a  contour  line. 

8.6  (SWANPRE 

8.6.1  COh 

Time  related  variab 

1  FOR  File) 

IMON/  TIMFILfNot  used) 
les  for  the  grids. 

Variable 

Description 

INTECU 

Integer 

Timestep  between  non-stationary  input  conditions  for 
currents. 

INTEFR 

Integer 

Timestep  between  non-stationary  input  conditions  for 
bottom  friction. 

INTEWI 

Integer 

Timestep  between  non-stationary  input  conditions  for 
wind. 

INTEWL 

Integer 

Timestep  between  non-stationary  input  conditions  for 
water  levels. 

TBEGCU 

Real 

Start  time  for  the  non-stationary  input  conditions  for 
currents. 

TBEGFR 

Real 

Start  time  for  the  non-stationary  input  conditions  for 
bottom  friction. 

TBEGWI 

Real 

Start  time  for  the  non-stationary  input  conditions  for 
wind. 
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TBEGWL 

Real 

Start  time  for  the  non-stationary  input  conditions  for 
water  levels. 

TENDCU 

Real 

End  time  for  the  non-stationary  input  conditions  for 
currents. 

TENDFR 

Real 

End  time  for  the  non-stationary  input  conditions  for 
bottom  friction. 

TENDWI 

Real 

End  time  for  the  non-stationary  input  conditions  for 
wind. 

TENDWL 

Real 

End  time  for  the  non-stationary  input  conditions  for 
water  levels. 

TIMCU 

Real 

Last  time  that  non-stationary  input  conditions  has  been 
read  for  currents. 

TIMFR 

Real 

Last  time  that  non-stationaty  input  conditions  has  been 
read  for  bottom  friction. 

TIMWI 

Real 

Last  time  that  non-stationary  input  conditions  has  been 
read  for  wind. 

TIMWL 

Real 

Last  time  that  non-stationary  input  conditions  has  been 
read  for  water  levels. 

8.6.2  COMMON/  CBOUP(Not  used) 


8.6.3  COMMON/  SWANWL 

Variables  for  project  h3268. 


8.6.4  COMMON/ TlMCOM 


Time  related  variab 

les  for  the  computation. 

Variable 

Description 

TINIC 

Real 

Start  time  and  date  of  the  computation. 

DT 

Timestep  of  the  computation. 

TFINC 

EmB 

End  time  and  date  of  the  computation. 

TIMCO 

Real 

Time  and  date  of  the  computation  during  the  simulation. 

8.6.5  COX 

Time  related  variab 

1MON/  TIM  RED 

es  for  nested  runs. 

Variable 

E sSWM 

Description 

BEGBOU 

Real 

Start  time  for  the  non-stationary  boundary  conditions. 

TIMERB 

Real 

(Not  used);  Last  time  that  non-stationary  boundary 
conditions  has  been  read  in  the  case  of  nested  runs. 

IFACMX 

ebsm 

Not  used. 

IFACMY 

Integer 

Not  used. 
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TINTBO 

Real 

Timestep  between  non-stationary  boundary  conditions  in 

the  case  of  nested  runs. 

8.7  (swanser  FOR  File) 

8.7.1  COMMON/  PSHAPE 


Coefficients  of  spectral  distribution. 


Variable 

Description 

PSHAPE(l) 

Real 

SYO,  peak  enhancement  factor  (gamma)  in  JONSWAP 
spectrum. 

PSHAPE(2) 

Real 

Spectral  width  for  Gauss  spectrum  in  rad/s. 

8. 7.2  COMMON/  SPPARM 


Array  containing  integral  wave  ] 

parameters. 

Variable 

E353HI 

Description 

SPPARM 

Incident  wave  Parameters  (Hs,  Period,  direction,  Ms). 

SPPARM(l) 

1 

Hs,  significant  wave  height. 

SSPARM(2) 

Real 

Wave  period  given  by  the  user  (either  peak  or  mean). 

SSPARM(3) 

Real 

Average  direction. 

SSPARM(4) 

Real 

Directional  spread. 

8.8  (ocpcommI  INC  File) 

8.8.1  COMMON/  REFTIM 

Origin  for  day  and  time. _ 


Variable 

Type 

Description 

REFDAY 

Integer 

Day  number  of  the  reference  day.  The  first  day  entered  is 
used  as  reference  day,  the  reference  time  is  0:00  of  the 
reference  day. 

8.9  (ocpcomm3  INC  File) 

8.9.1  COMMON/  PLDATA 

Plotting  related  variables. 


Variable 

ES7WM 

Description 

IPLOPT 

Hi 

Plotting  option. 

IUPLF 

EBSSf 

Unit  reference  number  of  the  PLOT  file. 

PLFACT 

Real 

Not  used. 
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PLPARM 

Real 

Plottin 

8P 

arameters. 

8.9.2  COMMON/  BINARY 

Common  variables. 


Variable 

m 

e 

Description 

BIT 

IDK9I 

Not  used. 

8.10  (poolcomm  INC  File) 


8.10.1  COMMON/ SWPOOL 

Data  Pool. 


Variable 

IRISH 

Description 

POOL 

Dynamic  data  pool  array. 

RPOOL 

Real 

Real  equivalence  of  pool. 

LPOOL 

ESH35H1 

Logical  equivalence  of  pool. 

8.11  (swcomm2  INC  File) 

8.11.1  COMMON/  INPGRS  (Not  used) 


Variable 

E3SH 

Description 

IFLEDL 

EBSB 

Lay-out  in  input  file. 

EFLIFM 

tSnzsM 

Format  identifier. 

EFLNHF 

Number  of  heading  lines  per  file. 

IFLNHD 

PH . 1 11 

Number  of  heading  lines  per  input  field. 

IFLFAC 

Real 

Multiplication  factor. 

IFLNDS 

Unit  reference  number  of  data  file. 

IFLNDF 

Unit  reference  number  of  name  list  file. 

IFLDYN 

If  =  0,  Data  is  stationary. 

If  =  1,  Non-stationary. 

IFLTIM 

| 

Time  of  last  reading. 

IFLBEG  1 

Begin  time  of  data  on  file. 

IFLINT 

Real 

Time  interval  of  data  on  file. 

IFLEND 

Real 

End  time  of  data  on  file. 

EFLFRM 

Character 

Format  string. 
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8.12  (swcomm4  INC  File) 
8.12.1  COMMON/ SWROP 


Higher  order  propagation  and  spherical  coordinates. 


o  _ \  1 _ 

Variable 

Type 

Description 

PROPSC 

Integer 

Indicates  which  numerical  scheme  is  to  be  used  for 
spatial  propagation: 

=  1  First  order  (BSBT); 

=  2  SORDUP; 

=  3  Third  order  (S&L). 

PROPSL 

Indicates  which  numerical  scheme  is  used  locally. 

PROPS  S 

Integer 

Indicates  which  numerical  scheme  is  to  be  used  in 
stationary  computations: 

=  1  First  order  (BSBT); 

=  2  SORDUP. 

PROPSN 

Integer 

Indicates  which  numerical  scheme  is  to  be  used  in  non¬ 
stationary  computations: 

=  I  First  order  (BSBT); 

=  3  Third  order  (S&L). 

WAVAGE 

Real 

Indicates  "wave  age"  parameter. 

KSPHER 

Integer 

Indicates  whether  spherical  coordinates  are  used,  and 
which  projection  method: 

=  0  Cartesian  coordinates; 

>  0  Spherical  coordinates. 

REARTH 

Radius  of  the  earth. 

LENDEG 

Length  of  a  degree  ns. 

KREPTX 

Integer 

If  >  0,  the  domain  repeats  itself  in  x-direction  (primarily 
intended  for  propagation  around  the  globe). 

COSLAT 

Real 

Cosine  of  latitude; 

=  1  for  Cartesian  coordinates. 

PROJ_METHOD 

Integer 

Projection  method: 

=  0  (Quasi-)Cartesian; 

=  1  Uniform  Mercator  (only  spherical  coordinates). 
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